Commit d6caefa95406b6c2f8f88b2fcfd99d2ed64023d1 Parent: 4d164eaf5f88344562b09defd16c2b532c36bae5 Author: mcol <mcol@posteo.net> Date: 2021-10-04 23:06:57 +0100 Committer: mcol <mcol@posteo.net> Committed: 2021-10-04 23:06:57 +0100 untag commits when rendering in templates
src/Repositories.hs Modified
@@ -154,7 +154,7 @@ commitAsLookup :: Commit LgRepo -> Text -> Maybe (GVal m) commitAsLookup commit = \case - "id" -> Just . toGVal . show . commitOid $ commit + "id" -> Just . toGVal . show . untag . commitOid $ commit "title" -> Just . toGVal . strip . T.takeWhile (/= '\n') . commitLog $ commit "body" -> Just . toGVal . strip . T.dropWhile (/= '\n') . commitLog $ commit "message" -> Just . toGVal . strip . commitLog $ commit @@ -221,7 +221,7 @@ category :: a -> FilePath instance Target (Commit LgRepo) where - identify = (++ ".html") . show . commitOid + identify = (++ ".html") . show . untag . commitOid category = const "commit" instance Target TreeFile where