From b45c3ad8f1068b85a2944149101ff331b9b1320f Mon Sep 17 00:00:00 2001 From: rnhmjoj Date: Tue, 7 Jul 2015 21:00:04 +0200 Subject: [PATCH] Cosmesis --- src/Pretty.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/Pretty.hs b/src/Pretty.hs index 48d35e5..99881f4 100644 --- a/src/Pretty.hs +++ b/src/Pretty.hs @@ -24,9 +24,7 @@ names = , (Left "srvr", "url" ) , (Left "cdat", "created" ) , (Left "mdat", "last change") - , (Left "desc", "description") - ] - + , (Left "desc", "description") ] instance Pretty Keychain where pretty = intercalate spacer . map pretty @@ -38,8 +36,7 @@ instance Pretty Item where , "content: " ++ password , "keychain: " ++ takeBaseName keychain , "class: " ++ show itemClass - , "info: " - ] ++ map pretty entries + , "info: " ] ++ map pretty entries where title = maybe (Str "") id (lookup (Right 7) attrs) entries = filter ((`elem` keys) . fst) attrs