implement Spencer's decoration suggestion.

darcs-hash:20070610012237-72aca-4c5873773e58103f57f7a0b232da58c269248fa7

1 files changed, 1 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 3953c38..e08956d 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -109,7 +109,7 @@ atom_WM_STATE           = getAtom "WM_STATE"
 -- 'modifyLayout' can be considered a branch of an exception handler.
 --
 data Layout = Layout { doLayout     :: Rectangle -> [Window] -> X [(Window, Rectangle)]
-                     , modifyLayout :: SomeMessage -> Maybe Layout }
+                     , modifyLayout :: SomeMessage -> X (Maybe Layout) }
 
 -- Based on ideas in /An Extensible Dynamically-Typed Hierarchy of Exceptions/,
 -- Simon Marlow, 2006. Use extensible messages to the modifyLayout handler.