From 862973856e142a4a39ab44ea6075c0bf38034cf8 Mon Sep 17 00:00:00 2001
From: Stefan O'Rear <stefanor@cox.net>
Date: Tue, 12 Jun 2007 08:05:46 +0200
Subject: -Wall police

darcs-hash:20070612060546-e3110-2fd1f5c7dbcadaa4791b60158d261f2c7a10995b
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Operations.hs b/Operations.hs
index b0819f6..cc274ce 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -143,7 +143,7 @@ windows f = do
     visible <- fmap concat $ forM (W.current ws : W.visible ws) $ \w -> do
         let n      = W.tag (W.workspace w)
             this   = W.view n ws
-            Just (l,ls) = M.lookup n fls
+            Just l = fmap fst $ M.lookup n fls
             flt = filter (flip M.member (W.floating ws)) (W.index this)
             tiled = W.filter (not . flip M.member (W.floating ws)) . W.stack . W.workspace . W.current $ this
             (Rectangle sx sy sw sh) = genericIndex xinesc (W.screen w)
-- 
cgit v1.2.3