From 9f614caf1d67ce98c2668662ed5b1daa3a92d3a8 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Sun, 23 Sep 2007 14:17:23 +0200
Subject: add a hook to LayoutHelpers.

darcs-hash:20070923121723-72aca-45c0afd09bcc3b07b2ae8337bdc4527c288e6b7f.gz
---
 LayoutHelpers.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'LayoutHelpers.hs')

diff --git a/LayoutHelpers.hs b/LayoutHelpers.hs
index e51f45c..4401590 100644
--- a/LayoutHelpers.hs
+++ b/LayoutHelpers.hs
@@ -33,7 +33,9 @@ class (Show (m l a), Read (m l a), Layout l a) => LayoutModifier m l a where
     modifyModify _ _ = return Nothing
     redoLayout :: m l a -> Rectangle -> Stack a -> [(a, Rectangle)]
                -> X ([(a, Rectangle)], Maybe (l a -> m l a))
-    redoLayout _ _ _ wrs = return (wrs, Nothing)
+    redoLayout m _ _ wrs = do hook m; return (wrs, Nothing)
+    hook :: m l a -> X ()
+    hook _ = return ()
 
 instance LayoutModifier m l a => Layout (m l) a where
     doLayout m r s = do (ws, ml') <- doLayout (extractLayout m) r s
-- 
cgit v1.2.3