From 2aa44b369862ea2a0c69bc5a5bbb5e072f5ba206 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Fri, 5 Oct 2007 16:05:53 +0200 Subject: add pureMessage. darcs-hash:20071005140553-72aca-aa462a597c08ff1f9309985a0f3403d5023bc975.gz --- Operations.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index 62e007c..36f82e9 100644 --- a/Operations.hs +++ b/Operations.hs @@ -423,9 +423,8 @@ instance LayoutClass Tall a where doLayout (Tall nmaster _ frac) r = return . (\x->(x,Nothing)) . ap zip (tile frac r nmaster . length) . W.integrate - handleMessage (Tall nmaster delta frac) m = - return $ msum [fmap resize (fromMessage m) - ,fmap incmastern (fromMessage m)] + pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m) + ,fmap incmastern (fromMessage m)] where resize Shrink = Tall nmaster delta (max 0 $ frac-delta) resize Expand = Tall nmaster delta (min 1 $ frac+delta) incmastern (IncMasterN d) = Tall (max 0 (nmaster+d)) delta frac -- cgit v1.2.3