From 9d718cd31b28f6799fd2dd25ffe17d9032dadbda Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 21 Jun 2007 05:36:13 +0200
Subject: minor tweaks, ideas from joachim.fasting@

darcs-hash:20070621033613-9c5c1-51e25d524c5a54aafbab14f55b3b155c558195d2
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index a40b2a0..cd20c47 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -99,7 +99,7 @@ view = windows . W.view
 modifyGap :: (Int -> (Int,Int,Int,Int) -> (Int,Int,Int,Int)) -> X ()
 modifyGap f = do
     XState { windowset = ws, statusGaps = gaps } <- get
-    let n       = fromIntegral $ W.screen (W.current ws)
+    let n       = fromIntegral . W.screen $ W.current ws
         (a,i:b) = splitAt n gaps
     modify $ \s -> s { statusGaps = a ++ f n i : b }
     refresh
-- 
cgit v1.2.3