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

Fiks links i Atom-feed

This commit is contained in:
Niels G. W. Serup 2024-12-19 08:04:41 +01:00
parent 3684f2ec8c
commit 1d5efb5c88
No known key found for this signature in database
GPG Key ID: 38EEEBCE67324F19
1 changed files with 1 additions and 1 deletions
Show Stats 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>"]) >: ("<updated>" : updatedDate ++ ["</updated>"])
>: ("<published>" : updatedDate ++ ["</published>"])) >: ("<published>" : updatedDate ++ ["</published>"]))
>: "</entry>" >: "</entry>"
where slugUrl = [urlRoot, "/", T.pack slug, ".html"] where slugUrl = [urlRoot, "/", T.pack slug, "/"]
updatedDate = [formatDateShort updated, "T00:00:00Z"] updatedDate = [formatDateShort updated, "T00:00:00Z"]
generateAtom :: (TokenableTo Date a, TokenableTo [AtomEntry] b) => a -> b -> DepGenM (Token Text) generateAtom :: (TokenableTo Date a, TokenableTo [AtomEntry] b) => a -> b -> DepGenM (Token Text)