From 07184fed9f036414cf81974631789c99ef4b309e Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Tue, 16 Oct 2007 14:09:59 +0000 Subject: [PATCH] Spiral.hs: add 'description' function to LayoutClass instance for SpiralWithDir. --- Spiral.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Spiral.hs b/Spiral.hs index d4ced6dc..53ab2686 100644 --- a/Spiral.hs +++ b/Spiral.hs @@ -76,6 +76,7 @@ instance LayoutClass SpiralWithDir a where handleMessage (SpiralWithDir dir rot scale) = return . fmap resize . fromMessage where resize Expand = spiralWithDir dir rot $ (21 % 20) * scale resize Shrink = spiralWithDir dir rot $ (20 % 21) * scale + description _ = "Spiral" -- This will produce one more rectangle than there are splits details divideRects :: [(Rational, Direction)] -> Rectangle -> [Rectangle]