From 9e5501ce1fd6d4da227a9dfde3a60f50f70d05e9 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 28 Sep 2007 05:31:21 +0000
Subject: [PATCH] Give Hinted a nice description

---
 LayoutHints.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/LayoutHints.hs b/LayoutHints.hs
index 18edf80c..bf048d37 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)