From b8a5c2af010b4ed3a970102a4e68ae2f93043f6d Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sun, 10 Jun 2007 03:22:37 +0200 Subject: implement Spencer's decoration suggestion. darcs-hash:20070610012237-72aca-4c5873773e58103f57f7a0b232da58c269248fa7 --- XMonad.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad.hs') 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. -- cgit v1.2.3