diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:32:57 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:32:57 +0200 |
| commit | f60f9341e62101a9f99374979edda5bcf6a39116 (patch) | |
| tree | af2df794b4cd8f7f3059244725ac47aa81bf31e4 /LayoutModifier.hs | |
| parent | 0bc68d98aa38baf3d659c4f9caf7fdd3be4a8963 (diff) | |
| download | XMonadContrib-f60f9341e62101a9f99374979edda5bcf6a39116.tar.gz XMonadContrib-f60f9341e62101a9f99374979edda5bcf6a39116.tar.xz XMonadContrib-f60f9341e62101a9f99374979edda5bcf6a39116.zip | |
Make modifier descriptions prettier
darcs-hash:20070928053257-a5988-dd4e81b692c192e263be88688077c4bb011e765e.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 b518c43..8785c5f 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -53,6 +53,6 @@ instance (LayoutModifier m a, Layout l a) => Layout (ModifiedLayout m l) a where return $ case mm' of Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' Nothing -> (ModifiedLayout m) `fmap` ml' - description (ModifiedLayout m l) = modifierDescription m ++ description l + description (ModifiedLayout m l) = modifierDescription m ++ " " ++ description l data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show ) |