aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs2
-rw-r--r--XMonad.hs2
2 files changed, 2 insertions, 2 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
diff --git a/XMonad.hs b/XMonad.hs
index 6242b40..7914782 100644
--- a/XMonad.hs
+++ b/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)