@@ -33,6 +33,7 @@ import Hakyll.Web.Page
3333import Hakyll.Web.Page.Metadata
3434import Hakyll.Web.Template
3535import Hakyll.Web.Template.Read.Hakyll (readTemplate)
36+import Hakyll.Web.Util.String
3637
3738import Paths_hakyll
3839
@@ -93,7 +94,7 @@ renderFeed feedTemplate itemTemplate configuration =
9394 renderFeed' = unsafeCompiler $ \(items, url) -> do
9495 feedTemplate' <- loadTemplate feedTemplate
9596 itemTemplate' <- loadTemplate itemTemplate
96− let url' = fromMaybe noUrl url
97+ let url' = toUrl $ fromMaybe noUrl url
9798 return $ createFeed feedTemplate' itemTemplate' url' configuration items
9899
99100 -- Auxiliary: load a template from a datafile