From 0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 07:31:21 +0200
Subject: Give Hinted a nice description

darcs-hash:20070928053121-a5988-2a143eb443995bb8240b997981d937398497974a.gz
---
 LayoutHints.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'LayoutHints.hs')

diff --git a/LayoutHints.hs b/LayoutHints.hs
index 18edf80..bf048d3 100644
--- a/LayoutHints.hs
+++ b/LayoutHints.hs
@@ -43,6 +43,7 @@ adjBorders mult (w,h)  = (w+2*mult*borderWidth, h+2*mult*borderWidth)
 data LayoutHints a = LayoutHints deriving (Read, Show)
 
 instance LayoutModifier LayoutHints Window where
+    modifierDescription _ = "Hinted"
     redoLayout _ _ _ xs = do
                             xs' <- mapM applyHint xs
                             return (xs', Nothing)
-- 
cgit v1.2.3