From 3c372e5f9a09ff2f1c6b2c5f4c74c35390fc8bdd Mon Sep 17 00:00:00 2001 From: David Roundy Date: Thu, 18 Oct 2007 20:24:38 +0000 Subject: [PATCH] beautify description code for empty modifier-description. --- LayoutModifier.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/LayoutModifier.hs b/LayoutModifier.hs index ee763065..22a97c07 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 )