diff options
| author | David Roundy <droundy@darcs.net> | 2007-10-18 22:26:04 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-10-18 22:26:04 +0200 |
| commit | 980b7178e7c1aac51d70003cc5d5ce4168f51715 (patch) | |
| tree | 698de74cd040a6af6f8c5feed17aae085b69b327 /LayoutModifier.hs | |
| parent | 74a8d5a36a08bc054e654cc01b17ea833fd00d7a (diff) | |
| download | XMonadContrib-980b7178e7c1aac51d70003cc5d5ce4168f51715.tar.gz XMonadContrib-980b7178e7c1aac51d70003cc5d5ce4168f51715.tar.xz XMonadContrib-980b7178e7c1aac51d70003cc5d5ce4168f51715.zip | |
default to empty description for layout modifiers.
This is because modifierDescription is designed to be human-readable,
and show rarely creates a human-readable description. And in many (if
not most) cases, an empty description is precisely what we want.
darcs-hash:20071018202604-72aca-6da6f02e804c95da4cbccae205f83217333f7c96.gz
Diffstat (limited to 'LayoutModifier.hs')
| -rw-r--r-- | LayoutModifier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index 22a97c0..88eed93 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -42,7 +42,7 @@ class (Show (m a), Read (m a)) => LayoutModifier m a where unhook :: m a -> X () unhook _ = return () modifierDescription :: m a -> String - modifierDescription = show + modifierDescription = const "" instance (LayoutModifier m a, LayoutClass l a) => LayoutClass (ModifiedLayout m l) a where doLayout (ModifiedLayout m l) r s = |