diff options
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -20,7 +20,7 @@ module XMonad ( spawn, trace, whenJust, rot ) where -import StackSet (StackSet) +import StackSet (StackSet,WorkspaceId) import Control.Monad.State import System.IO @@ -43,7 +43,7 @@ data XState = XState , dimensions :: !(Int,Int) -- ^ dimensions of the screen, used for hiding windows , workspace :: !WorkSpace -- ^ workspace list , defaultLayoutDesc :: !LayoutDesc -- ^ default layout - , layoutDescs :: !(M.Map Int LayoutDesc) -- ^ mapping of workspaces to descriptions of their layouts + , layoutDescs :: !(M.Map WorkspaceId LayoutDesc) -- ^ mapping of workspaces to descriptions of their layouts } type WorkSpace = StackSet Window @@ -60,9 +60,6 @@ data LayoutDesc = LayoutDesc { layoutType :: !Layout , tileFraction :: !Rational } - - - -- | The X monad, a StateT transformer over IO encapsulating the window -- manager state newtype X a = X (StateT XState IO a) |