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

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)

StackSet.hs

@@ -105,11 +105,6 @@ import qualified Data.Map  as M (Map,insert,delete,empty)
 -- 'delete'.
 --
 
-import Prelude hiding (filter)
-import Data.Maybe   (listToMaybe)
-import qualified Data.List as L (delete,find,genericSplitAt,filter)
-import qualified Data.Map  as M (Map,insert,delete,empty)
-
 -- | 
 -- API changes from xmonad 0.1:
 -- StackSet constructor arguments changed. StackSet workspace window screen