From d2e3f0eb762968cf6a75f828d82477c7ee4ed99f Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sat, 12 May 2007 23:53:01 +0200 Subject: put doLayout in the X monad. darcs-hash:20070512215301-72aca-59213ac37c38e57d6ffed1d518afd4729f1744c9 --- XMonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad.hs') 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/, -- cgit v1.2.3