diff options
| -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 = |