From 4316f60920dd83a5707e0df0c25c98e42cf1417c Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 24 Sep 2007 21:33:45 +0200
Subject: LayoutModifier updated to use LayoutMessages
darcs-hash:20070924193345-32816-89f6d432ec661fd5926fb3630fc353f41221b8e3.gz
---
LayoutModifier.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/LayoutModifier.hs b/LayoutModifier.hs
index 8b60b4d..2d22371 100644
--- a/LayoutModifier.hs
+++ b/LayoutModifier.hs
@@ -20,14 +20,14 @@ module XMonadContrib.LayoutModifier (
import Graphics.X11.Xlib ( Rectangle )
import XMonad
import StackSet ( Stack )
-import Operations ( UnDoLayout(UnDoLayout) )
+import Operations ( LayoutMessages(Hide) )
-- $usage
-- Use LayoutHelpers to help write easy Layouts.
class (Show (m a), Read (m a)) => LayoutModifier m a where
modifyModify :: m a -> SomeMessage -> X (Maybe (m l))
- modifyModify m mess | Just UnDoLayout <- fromMessage mess = do unhook m; return Nothing
+ modifyModify m mess | Just Hide <- fromMessage mess = do unhook m; return Nothing
| otherwise = return Nothing
redoLayout :: m a -> Rectangle -> Stack a -> [(a, Rectangle)]
-> X ([(a, Rectangle)], Maybe (m l))
--
cgit v1.2.3