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 | 978672cf780e1e60050160ef559fcceb2a239e7c (patch) | |
| tree | 12a8b8af358f745eabc67066db6f2b49ce08f136 /Operations.hs | |
| parent | 430f163014b6a53cd87863df490ae34497d7aa9a (diff) | |
| download | metatile-978672cf780e1e60050160ef559fcceb2a239e7c.tar metatile-978672cf780e1e60050160ef559fcceb2a239e7c.zip | |
-Wall police, and turn on -fno-warn-orphans
darcs-hash:20070617052322-9c5c1-9cd715825d376163cbf341993bc0f132e50ef3b6
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) |