ngws/mad
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fiks links i Atom-feed

Browse Source
This commit is contained in:
Niels G. W. Serup
2024-12-19 08:04:41 +01:00
parent 3684f2ec8c
commit 1d5efb5c88
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
byg/src/Byg/Functions/Atom.hs
View File

@@ -85,7 +85,7 @@ makeEntry ((title, updated), slug) =
>: ("<updated>" : updatedDate ++ ["</updated>"])
>: ("<published>" : updatedDate ++ ["</published>"]))
>: "</entry>"
where slugUrl = [urlRoot, "/", T.pack slug, ".html"]
where slugUrl = [urlRoot, "/", T.pack slug, "/"]
updatedDate = [formatDateShort updated, "T00:00:00Z"]
generateAtom :: (TokenableTo Date a, TokenableTo [AtomEntry] b) => a -> b -> DepGenM (Token Text)