Commit ad3b01617373236314610f566029debc77f69aa1 Parent: 0b29c6cbe7bda35978f2aaa91d7d12cc52515737 Author: mcol <mcol@posteo.net> Date: 2021-10-04 11:32:45 +0100 Committer: mcol <mcol@posteo.net> Committed: 2021-10-04 11:32:45 +0100 Remove redundant text pack for commitOid
src/Repositories.hs Modified
@@ -151,7 +151,7 @@ commitAsLookup :: Commit LgRepo -> Text -> Maybe (GVal m) commitAsLookup commit = \case - "id" -> Just . toGVal . renderObjOid . commitOid $ commit + "id" -> Just . toGVal . show . commitOid $ commit "title" -> Just . toGVal . strip . fst . breakOn "\n" . commitLog $ commit "body" -> Just . toGVal . strip . snd . breakOn "\n" . commitLog $ commit "message" -> Just . toGVal . strip . commitLog $ commit @@ -203,7 +203,7 @@ category :: a -> FilePath instance Target (Commit LgRepo) where - identify = (++ ".html") . unpack . renderObjOid . commitOid + identify = (++ ".html") . show . commitOid category = const "commit" instance Target (TreeFile) where