twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 04:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

-Wall police, and turn on -fno-warn-orphans

Browse Source
This commit is contained in:
Don Stewart
2007-06-17 05:23:22 +00:00
parent dbd58faffe
commit be08dd80ec
2 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Operations.hs
View File

@@ -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)