diff options
| -rw-r--r-- | Operations.hs | 2 | ||||
| -rw-r--r-- | XMonad.hs | 2 |
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 @@ -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) |