diff options
Diffstat (limited to 'Spiral.hs')
-rw-r--r-- | Spiral.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -33,7 +33,7 @@ blend scale ratios = zipWith (+) ratios scaleFactors spiral :: Rational -> Layout spiral scale = Layout { doLayout = fibLayout, - modifyLayout = \m -> fmap resize $ fromMessage m } + modifyLayout = \m -> return $ fmap resize $ fromMessage m } where fibLayout sc ws = return $ zip ws rects where ratios = blend scale . reverse . take (length ws - 1) . mkRatios $ tail fibs |