From c8d883af2333b4f5d9b0d4f170bb1c63df0dea45 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.gz
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

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)
-- 
cgit v1.2.3