From 2e0f1062d324c73e53072aa8b979df18f8cdb59d Mon Sep 17 00:00:00 2001
From: "joe.thornber" <joe.thornber@gmail.com>
Date: Thu, 24 May 2007 14:02:39 +0200
Subject: [Spiral] last rect takes all available space

darcs-hash:20070524120239-db939-d251edeabf4a6ba44cf260cd3c98816c15e9db50.gz
---
 Spiral.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Spiral.hs')

diff --git a/Spiral.hs b/Spiral.hs
index ca8f891..1f6547d 100644
--- a/Spiral.hs
+++ b/Spiral.hs
@@ -37,6 +37,7 @@ spiral scale = Layout { doLayout = fibLayout,
 
 divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle]
 divideRects [] _ = []
+divideRects [_] r = [r]
 divideRects ((r,d):xs) rect = case divideRect r d rect of
                                 (r1, r2) -> r1 : (divideRects xs r2)
 
-- 
cgit v1.2.3