From c55dea78d8cd2c748b35607966ffbb2625003fce Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 10 Jun 2007 22:38:40 +0200
Subject: Updates for Layout API change

darcs-hash:20070610203840-a5988-bcd9a2f4010d1981575cf24aa38ee1760d7976c2.gz
---
 Spiral.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Spiral.hs')

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
-- 
cgit v1.2.3