Spiral.hs: add 'description' function to LayoutClass instance for SpiralWithDir.

darcs-hash:20071016140959-bd4d7-4375de268b8544a30b9fd153fe8cdb0da5cf2b68.gz

1 files changed, 1 insertions, 0 deletions

diff --git a/Spiral.hs b/Spiral.hs
index d4ced6d..53ab268 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]