minor tweaks, ideas from joachim.fasting@

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

XMonad.hs

@@ -182,7 +182,7 @@ spawn x = io $ do
 -- current window state.
 restart :: Maybe String -> Bool -> X ()
 restart mprog resume = do
-    prog <- maybe (io $ getProgName) return mprog
+    prog <- maybe (io getProgName) return mprog
     args <- if resume then gets (("--resume":) . return . show . windowset) else return []
     catchIO (executeFile prog True args Nothing)