diff options
| -rw-r--r-- | LayoutHints.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |