From 1e2f5c3c8c049a96865f5318c52039a7f2cf698a Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Thu, 18 Feb 2010 12:52:34 +0100
Subject: Just minor changes

---
 xmonad.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 06a4978..ce4b769 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -21,10 +21,10 @@ import FullscreenManager
 import NoBorders
 
 
-myModMask = mod4Mask
+modm = mod4Mask
 
 main = xmonad $ gnomeConfig
-       { modMask = myModMask
+       { modMask = modm
        , manageHook = myManageHook
        , layoutHook = desktopLayoutModifiers myLayoutHook
        , startupHook = myStartupHook
@@ -44,16 +44,16 @@ main = xmonad $ gnomeConfig
        , ("M-<F3>", viewOrWarp 2)
        ]
        `additionalMouseBindings`
-       [ ((myModMask, button4), \_ -> sendMessage Shrink)
-       , ((myModMask, button5), \_ -> sendMessage Expand)
-       , ((myModMask .|. shiftMask, button4), \_ -> sendMessage MirrorExpand)
-       , ((myModMask .|. shiftMask, button5), \_ -> sendMessage MirrorShrink)
+       [ ((modm, button4), \_ -> sendMessage Shrink)
+       , ((modm, button5), \_ -> sendMessage Expand)
+       , ((modm .|. shiftMask, button4), \_ -> sendMessage MirrorExpand)
+       , ((modm .|. shiftMask, button5), \_ -> sendMessage MirrorShrink)
        ]
 
 
 viewOrWarp :: Int -> X ()
 viewOrWarp n = do
-  XState {windowset = wset} <- get
+  wset <- gets windowset
   i <- getScreen $ P n
   whenJust i $ \s -> do
                  ws <- screenWorkspace s
-- 
cgit v1.2.3