~mrlee/kamelasa

978497a61f779845b78e1f130b1bb9866ac4fb40 — Lee Meichin 1 year, 3 months ago d93ed14
Remove show, don't want extra quotes
2 files changed, 4 insertions(+), 4 deletions(-)

M VERSION
M kamelasa.hs
M VERSION => VERSION +1 -1
@@ 1,1 1,1 @@
1.1.0
\ No newline at end of file
1.1.1
\ No newline at end of file

M kamelasa.hs => kamelasa.hs +3 -3
@@ 93,9 93,9 @@ logListField pluralName limit =
    logs <- getGitLog limit
    return $ map logItem logs
 where
  ctx = field "commit" (return . show . commitHash . itemBody)
    <> field "message" (return . show . commitMsg . itemBody)
    <> field "date" (return . show . commitDate . itemBody)
  ctx = field "commit" (return . commitHash . itemBody)
    <> field "message" (return . commitMsg . itemBody)
    <> field "date" (return . commitDate . itemBody)

  logItem :: GitLog -> Item GitLog
  logItem log = Item (fromString $ "log/" ++ commitHash log) log