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)