change workspaces to [WorkspaceId]

Config.hs

@@ -31,8 +31,8 @@ import Graphics.X11.Xlib
 --
 -- The number of workspaces (virtual screens, or window groups)
 --
-workspaces :: Int
+workspaces :: [WorkspaceId]
-workspaces = 9
+workspaces = [0..8]
 
 -- |
 -- modMask lets you specify which modkey you want to use. The default is
@@ -157,7 +157,7 @@ keys = M.fromList $
     -- mod-[1..9] @@ Switch to workspace N
     -- mod-shift-[1..9] @@ Move client to workspace N
     [((m .|. modMask, k), f i)
-        | (i, k) <- zip [0 .. fromIntegral workspaces - 1] [xK_1 ..]
+        | (i, k) <- zip workspaces [xK_1 ..]
         , (f, m) <- [(view, 0), (shift, shiftMask)]]
 
     -- mod-{w,e,r} @@ Switch to physical/Xinerama screens 1, 2, or 3

Config.hs-boot

@@ -5,4 +5,4 @@ import XMonad
 borderWidth :: Dimension
 logHook     :: X ()
 numlockMask :: KeyMask
-workspaces :: Int
+workspaces :: [WorkspaceId]

Main.hs

@@ -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 }