From 1d5efb5c88a745159c77dd2f4261bd1e2429095a Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Thu, 19 Dec 2024 08:04:41 +0100 Subject: [PATCH] Fiks links i Atom-feed --- byg/src/Byg/Functions/Atom.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/byg/src/Byg/Functions/Atom.hs b/byg/src/Byg/Functions/Atom.hs index 93662ab..65d8dad 100644 --- a/byg/src/Byg/Functions/Atom.hs +++ b/byg/src/Byg/Functions/Atom.hs @@ -85,7 +85,7 @@ makeEntry ((title, updated), slug) = >: ("" : updatedDate ++ [""]) >: ("" : updatedDate ++ [""])) >: "" - 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)