rnhmjoj/skeleton
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cosmesis

Browse Source
This commit is contained in:
rnhmjoj 2015-07-07 21:00:04 +02:00
parent 20ef16e3f2
commit b45c3ad8f1
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Pretty.hs
View File

@ -24,9 +24,7 @@ names =
, (Left "srvr", "url" ) , (Left "srvr", "url" )
, (Left "cdat", "created" ) , (Left "cdat", "created" )
, (Left "mdat", "last change") , (Left "mdat", "last change")
, (Left "desc", "description") , (Left "desc", "description") ]
]
instance Pretty Keychain where instance Pretty Keychain where
pretty = intercalate spacer . map pretty pretty = intercalate spacer . map pretty
@ -38,8 +36,7 @@ instance Pretty Item where
, "content: " ++ password , "content: " ++ password
, "keychain: " ++ takeBaseName keychain , "keychain: " ++ takeBaseName keychain
, "class: " ++ show itemClass , "class: " ++ show itemClass
, "info: " , "info: " ] ++ map pretty entries
] ++ map pretty entries
where where
title = maybe (Str "") id (lookup (Right 7) attrs) title = maybe (Str "") id (lookup (Right 7) attrs)
entries = filter ((`elem` keys) . fst) attrs entries = filter ((`elem` keys) . fst) attrs