diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-03 09:58:21 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-05-03 09:58:21 +0200 |
commit | a10af6690d8f819156749314da49d481007ee616 (patch) | |
tree | a391537ba0f1eac723d37c9b4b5d8aea8c22fded /XMonad.hs | |
parent | 17043e273444e89a947ce0a38f1de6f2da7f60f1 (diff) | |
download | xmonad-a10af6690d8f819156749314da49d481007ee616.tar.gz xmonad-a10af6690d8f819156749314da49d481007ee616.tar.xz xmonad-a10af6690d8f819156749314da49d481007ee616.zip |
comments. and stop tracing events to stderr
darcs-hash:20070503075821-9c5c1-d5bc043872adb9f95c23e0fde87ae11f16108785.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -65,6 +65,11 @@ newtype ScreenId = S Int deriving (Eq,Ord,Show,Enum,Num,Integral,Real) -- | The X monad, a StateT transformer over IO encapsulating the window -- manager state +-- +-- Dynamic components may be retrieved with 'get', static components +-- with 'ask'. With newtype deriving we get readers and state monads +-- instantiated on XConf and XState automatically. +-- newtype X a = X (ReaderT XConf (StateT XState IO) a) deriving (Functor, Monad, MonadIO, MonadState XState, MonadReader XConf) @@ -96,8 +101,7 @@ rotateLayout x = if x == maxBound then minBound else succ x -- | A full description of a particular workspace's layout parameters. data LayoutDesc = LayoutDesc { layoutType :: !Layout - , tileFraction :: !Rational - } + , tileFraction :: !Rational } -- --------------------------------------------------------------------- -- Utilities |