From f588fbb5a378f321be8fb0cfa33204ed83508983 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Tue, 12 Jun 2007 15:49:38 +0200
Subject: fmt

darcs-hash:20070612134938-9c5c1-6129a754a3a5326ac8147b7d5321438fec38c7fd
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Operations.hs b/Operations.hs
index cc274ce..994b773 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -145,13 +145,13 @@ windows f = do
             this   = W.view n ws
             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
+            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)
             (gt,gb,gl,gr)           = genericIndex gaps   (W.screen w)
             viewrect = Rectangle (sx + fromIntegral gl)        (sy + fromIntegral gt)
                                  (sw - fromIntegral (gl + gr)) (sh - fromIntegral (gt + gb))
 
-       
         -- just the tiled windows:
         -- now tile the windows on this workspace, modified by the gap
         rs <- doLayout l viewrect tiled -- `mplus` doLayout full viewrect tiled
-- 
cgit v1.2.3