From 73932d8b348a387fb6fb6f175cc897f421d59804 Mon Sep 17 00:00:00 2001 From: Eric Mertens Date: Fri, 19 Oct 2007 01:13:29 +0200 Subject: Deobfuscate Tall layout darcs-hash:20071018231329-b49f3-d7bf3ee5c5901af0e37b61d41cafb4399ab827ca --- Operations.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Operations.hs b/Operations.hs index 6081775..1dad386 100644 --- a/Operations.hs +++ b/Operations.hs @@ -439,9 +439,9 @@ instance LayoutClass Full a data Tall a = Tall Int Rational Rational deriving (Show, Read) instance LayoutClass Tall a where - doLayout (Tall nmaster _ frac) r = - return . (flip (,) Nothing) . - ap zip (tile frac r nmaster . length) . W.integrate + pureLayout (Tall nmaster _ frac) r s = zip ws rs + where ws = W.integrate s + rs = tile frac r nmaster (length ws) pureMessage (Tall nmaster delta frac) m = msum [fmap resize (fromMessage m) ,fmap incmastern (fromMessage m)] -- cgit v1.2.3