diff options
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -52,7 +52,7 @@ main = do let winset | ("--resume" : s : _) <- args , [(x, "")] <- reads s = x - | otherwise = new [0..fromIntegral workspaces-1] $ zipWith SD xinesc gaps + | otherwise = new workspaces $ zipWith SD xinesc gaps gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x,xs) @@ -63,7 +63,7 @@ main = do , focusedBorder = fbc } st = XState { windowset = winset - , layouts = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]] + , layouts = M.fromList [(w, safeLayouts) | w <- workspaces] , mapped = S.empty , waitingUnmap = M.empty , dragging = Nothing } |