put doLayout in the X monad.

darcs-hash:20070512215301-72aca-59213ac37c38e57d6ffed1d518afd4729f1744c9

1 files changed, 1 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index d996348..22fce97 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -96,7 +96,7 @@ isRoot w = liftM (w==) (asks theRoot)
 -- 'doLayout', a pure function to layout a Window set 'modifyLayout', 
 -- 'modifyLayout' can be considered a branch of an exception handler.
 --
-data Layout = Layout { doLayout     :: Rectangle -> [Window] -> [(Window, Rectangle)]
+data Layout = Layout { doLayout     :: Rectangle -> [Window] -> X [(Window, Rectangle)]
                      , modifyLayout :: SomeMessage -> Maybe Layout }
 
 -- Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/,