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)