diff options
| author | David Roundy <droundy@darcs.net> | 2007-10-18 22:24:38 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-10-18 22:24:38 +0200 |
| commit | 74a8d5a36a08bc054e654cc01b17ea833fd00d7a (patch) | |
| tree | 7a5932b47ec59734973904d100ccc219a77c1089 | |
| parent | d7361c1d0c1cbabef97ebde9c571de74ac6227e7 (diff) | |
| download | XMonadContrib-74a8d5a36a08bc054e654cc01b17ea833fd00d7a.tar.gz XMonadContrib-74a8d5a36a08bc054e654cc01b17ea833fd00d7a.tar.xz XMonadContrib-74a8d5a36a08bc054e654cc01b17ea833fd00d7a.zip | |
beautify description code for empty modifier-description.
darcs-hash:20071018202438-72aca-a9f81255bde7bfa91b531d5240f5e719aaf16e7d.gz
| -rw-r--r-- | LayoutModifier.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index ee76306..22a97c0 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -58,8 +58,8 @@ instance (LayoutModifier m a, LayoutClass l a) => LayoutClass (ModifiedLayout m return $ case mm' of Just m' -> Just $ (ModifiedLayout m') $ maybe l id ml' Nothing -> (ModifiedLayout m) `fmap` ml' - description (ModifiedLayout m l) = modDesc ++ sep ++ description l - where modDesc = modifierDescription m - sep = if modDesc == "" then "" else " " + description (ModifiedLayout m l) = modifierDescription m <> description l + where "" <> x = x + x <> y = x ++ " " ++ y data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show ) |