diff options
Diffstat (limited to 'LayoutModifier.hs')
-rw-r--r-- | LayoutModifier.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index 1bf276f..ee76306 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -58,6 +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) = modifierDescription m ++ " " ++ description l + description (ModifiedLayout m l) = modDesc ++ sep ++ description l + where modDesc = modifierDescription m + sep = if modDesc == "" then "" else " " data ModifiedLayout m l a = ModifiedLayout (m a) (l a) deriving ( Read, Show ) |