From 346cc3269ee31062fa7eb560f90c4059c6279962 Mon Sep 17 00:00:00 2001
From: "joachim.fasting" <joachim.fasting@gmail.com>
Date: Wed, 20 Jun 2007 00:03:23 +0200
Subject: Fix type signatures.

Think this fixes the rest of the errors caused by the Layout change.

darcs-hash:20070619220323-ea16c-3274cd24d01bc932089ab88191ccda316ea93b01.gz
---
 Spiral.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Spiral.hs')

diff --git a/Spiral.hs b/Spiral.hs
index ce115e5..bf3197b 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -51,7 +51,7 @@ blend scale ratios = zipWith (+) ratios scaleFactors
       step = (scale - (1 % 1)) / (fromIntegral len)
       scaleFactors = map (* step) . reverse . take len $ [0..]
 
-spiral :: Rational -> Layout
+spiral :: Rational -> Layout a
 spiral scale = Layout { doLayout = \r -> fibLayout r . W.integrate,
                         modifyLayout = \m -> return $ fmap resize $ fromMessage m }
     where
-- 
cgit v1.2.3