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
---
 Combo.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Combo.hs')

diff --git a/Combo.hs b/Combo.hs
index 1823410..67263e2 100644
--- a/Combo.hs
+++ b/Combo.hs
@@ -79,7 +79,7 @@ instance (Eq a, Show a, Read a, ReadableSomeLayout a, Layout l (SomeLayout a, In
                                                                    , down = tail $ dropWhile (/=z) xs }
                                       | otherwise = differentiate zs xs
               differentiate [] xs = W.differentiate xs
-    modifyLayout (Combo f super origls) m =
+    handleMessage (Combo f super origls) m =
                       do mls <- broadcastPrivate m (map fst origls)
                          let mls' = (\x->zipWith first (map const x) origls) `fmap` mls
                          msuper <- broadcastPrivate m [super]
@@ -92,4 +92,4 @@ broadcastPrivate a ol = do nml <- mapM f ol
                            if any isJust nml
                               then return $ Just $ zipWith ((flip maybe) id) ol nml
                               else return Nothing
-    where f l = modifyLayout l a `catchX` return Nothing
+    where f l = handleMessage l a `catchX` return Nothing
-- 
cgit v1.2.3