Updates for Layout API change

darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Spiral.hs b/Spiral.hs
index c17f2cd..6701bb6 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -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