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