summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Config.hs2
-rw-r--r--XMonad.hs4
2 files changed, 3 insertions, 3 deletions
diff --git a/Config.hs b/Config.hs
index 087e76a..054efce 100644
--- a/Config.hs
+++ b/Config.hs
@@ -33,7 +33,7 @@ import Graphics.X11.Xlib
-- The number of workspaces (virtual screens, or window groups)
--
workspaces :: [WorkspaceId]
-workspaces = [0..8]
+workspaces = map (:"") ['1'..'9']
-- |
-- modMask lets you specify which modkey you want to use. The default is
diff --git a/XMonad.hs b/XMonad.hs
index 967a10f..d0ddca3 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -15,7 +15,7 @@
-----------------------------------------------------------------------------
module XMonad (
- X, WindowSet, WorkspaceId(..), ScreenId(..), ScreenDetail(..), XState(..), XConf(..), Layout(..),
+ X, WindowSet, WorkspaceId, ScreenId(..), ScreenDetail(..), XState(..), XConf(..), Layout(..),
Typeable, Message, SomeMessage(..), fromMessage, runLayout,
runX, catchX, io, catchIO, withDisplay, withWindowSet, isRoot, spawn, restart, trace, whenJust, whenX,
atom_WM_STATE, atom_WM_PROTOCOLS, atom_WM_DELETE_WINDOW
@@ -55,7 +55,7 @@ data XConf = XConf
type WindowSet = StackSet WorkspaceId Window ScreenId ScreenDetail
-- | Virtual workspace indicies
-newtype WorkspaceId = W Int deriving (Eq,Ord,Show,Read,Enum,Num,Integral,Real)
+type WorkspaceId = String
-- | Physical screen indicies
newtype ScreenId = S Int deriving (Eq,Ord,Show,Read,Enum,Num,Integral,Real)