diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-21 05:36:13 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-21 05:36:13 +0200 |
commit | fb09d71524ab2349bb235ac6fd655bd290b614cd (patch) | |
tree | 2d0deb3b04f2df0807b1b77c43e95e19bbbf75ea /Operations.hs | |
parent | 9ce9a7add56f3ffda5f3f52edabc5e647712ff00 (diff) | |
download | xmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.tar.gz xmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.tar.xz xmonad-fb09d71524ab2349bb235ac6fd655bd290b614cd.zip |
minor tweaks, ideas from joachim.fasting@
darcs-hash:20070621033613-9c5c1-51e25d524c5a54aafbab14f55b3b155c558195d2.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |