Give Hinted a nice description

2025-07-31 04:01:51 -07:00 · 2007-09-28 05:31:21 +00:00
parent 1ef72a1bfa
commit 9e5501ce1f
1 changed files with 1 additions and 0 deletions
--- 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)