From a10af6690d8f819156749314da49d481007ee616 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Thu, 3 May 2007 09:58:21 +0200 Subject: comments. and stop tracing events to stderr darcs-hash:20070503075821-9c5c1-d5bc043872adb9f95c23e0fde87ae11f16108785.gz --- XMonad.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'XMonad.hs') diff --git a/XMonad.hs b/XMonad.hs index 70e41f1..beddaef 100644 --- a/XMonad.hs +++ b/XMonad.hs @@ -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 -- cgit v1.2.3