From 5d42da6f605385a5692eaf34678e6d4524edad56 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 25 Sep 2007 20:29:30 +0200
Subject: modifyLayout -> handleMessage.

darcs-hash:20070925182930-72aca-7941d37cac143444e9f167e3dd15944d1138a377.gz
---
 LayoutModifier.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'LayoutModifier.hs')

diff --git a/LayoutModifier.hs b/LayoutModifier.hs
index bc82a14..f2dcd32 100644
--- a/LayoutModifier.hs
+++ b/LayoutModifier.hs
@@ -45,8 +45,8 @@ instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where
                       Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml'
                       Nothing -> ModifiedLayout m `fmap` ml'
            return (ws', ml'')
-    modifyLayout (ModifiedLayout m l) mess =
-        do ml' <- modifyLayout l mess
+    handleMessage (ModifiedLayout m l) mess =
+        do ml' <- handleMessage l mess
            mm' <- modifyModify m mess
            return $ case mm' of
                     Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml'
-- 
cgit v1.2.3