Just minor changes

1 files 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