From 579209ead201cb5ad7d9ea775bc22f0858685618 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Tue, 16 Oct 2007 16:09:59 +0200
Subject: Spiral.hs: add 'description' function to LayoutClass instance for
 SpiralWithDir.

darcs-hash:20071016140959-bd4d7-4375de268b8544a30b9fd153fe8cdb0da5cf2b68.gz
---
 Spiral.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Spiral.hs')

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]
-- 
cgit v1.2.3