From f60f9341e62101a9f99374979edda5bcf6a39116 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 28 Sep 2007 07:32:57 +0200 Subject: Make modifier descriptions prettier darcs-hash:20070928053257-a5988-dd4e81b692c192e263be88688077c4bb011e765e.gz --- LayoutModifier.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'LayoutModifier.hs') 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 ) -- cgit v1.2.3