From 978672cf780e1e60050160ef559fcceb2a239e7c Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Sun, 17 Jun 2007 07:23:22 +0200
Subject: -Wall police, and turn on -fno-warn-orphans

darcs-hash:20070617052322-9c5c1-9cd715825d376163cbf341993bc0f132e50ef3b6
---
 Operations.hs | 4 ++--
 StackSet.hs   | 7 +------
 2 files changed, 3 insertions(+), 8 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)
diff --git a/StackSet.hs b/StackSet.hs
index 8f5311a..614e95d 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -15,7 +15,7 @@ module StackSet (
         StackSet(..), Workspace(..), Screen(..), StackOrNot, Stack(..), RationalRect(..),
         -- *  Construction
         -- $construction
-        new, view, 
+        new, view,
         -- * Xinerama operations
         -- $xinerama
         lookupWorkspace,
@@ -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
-- 
cgit v1.2.3