Deobfuscate Tall layout

darcs-hash:20071018231329-b49f3-d7bf3ee5c5901af0e37b61d41cafb4399ab827ca

1 files 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)]