diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-04 06:56:44 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-04 06:56:44 +0200 |
commit | 2a59314ffa3997b6365bf2130ef8df0e0bc0185d (patch) | |
tree | 873d25fe148775c53202b9026fcf2a5dca23838e /Main.hs | |
parent | 1667b39998b24042de729d42419648ea964f1c6f (diff) | |
download | xmonad-2a59314ffa3997b6365bf2130ef8df0e0bc0185d.tar.gz xmonad-2a59314ffa3997b6365bf2130ef8df0e0bc0185d.tar.xz xmonad-2a59314ffa3997b6365bf2130ef8df0e0bc0185d.zip |
Handle empty layout lists
darcs-hash:20070504045644-a5988-68a6d650bacab936f893b96bf866696da3f73436.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -45,7 +45,8 @@ main = do nbc <- initcolor normalBorderColor fbc <- initcolor focusedBorderColor - let cf = XConf + let safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x, xs) + cf = XConf { display = dpy , xineScreens = xinesc , theRoot = rootw @@ -59,7 +60,7 @@ main = do } st = XState { workspace = W.empty workspaces (length xinesc) - , layouts = M.empty + , layouts = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]] } xSetErrorHandler -- in C, I'm too lazy to write the binding |