diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-17 07:23:22 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-17 07:23:22 +0200 |
| commit | c8d883af2333b4f5d9b0d4f170bb1c63df0dea45 (patch) | |
| tree | 12a8b8af358f745eabc67066db6f2b49ce08f136 /Operations.hs | |
| parent | 171044a5284e862d56857255492fb43a56397c21 (diff) | |
| download | xmonad-c8d883af2333b4f5d9b0d4f170bb1c63df0dea45.tar.gz xmonad-c8d883af2333b4f5d9b0d4f170bb1c63df0dea45.tar.xz xmonad-c8d883af2333b4f5d9b0d4f170bb1c63df0dea45.zip | |
-Wall police, and turn on -fno-warn-orphans
darcs-hash:20070617052322-9c5c1-9cd715825d376163cbf341993bc0f132e50ef3b6.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Operations.hs b/Operations.hs index 1526fa2..296f0c2 100644 --- a/Operations.hs +++ b/Operations.hs @@ -1,4 +1,4 @@ -{-# OPTIONS -fglasgow-exts #-} +{-# OPTIONS -fno-warn-orphans -fglasgow-exts #-} -- \^^ deriving Typeable -- -------------------------------------------------------------------------- -- | @@ -166,7 +166,7 @@ windows f = do (floor (toRational sw*rw)) (floor (toRational sh*rh)) io $ restackWindows d (flt ++ - maybe [] (\s@(W.Stack f _ _) -> f : delete f (W.integrate s)) tiled) + maybe [] (\s@(W.Stack foc _ _) -> foc : delete foc (W.integrate s)) tiled) -- return the visible windows for this workspace: return (map fst rs ++ flt) |