[Spiral] last rect takes all available space

darcs-hash:20070524120239-db939-d251edeabf4a6ba44cf260cd3c98816c15e9db50.gz

1 files changed, 1 insertions, 0 deletions

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)