summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs6
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)]