diff options
| -rw-r--r-- | src/Hakyll/Web/Feed.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Feed.hs b/src/Hakyll/Web/Feed.hs index 417f484..d91a60f 100644 --- a/src/Hakyll/Web/Feed.hs +++ b/src/Hakyll/Web/Feed.hs @@ -33,6 +33,7 @@ import Hakyll.Web.Page import Hakyll.Web.Page.Metadata import Hakyll.Web.Template import Hakyll.Web.Template.Read.Hakyll (readTemplate) +import Hakyll.Web.Util.String import Paths_hakyll @@ -93,7 +94,7 @@ renderFeed feedTemplate itemTemplate configuration = renderFeed' = unsafeCompiler $ \(items, url) -> do feedTemplate' <- loadTemplate feedTemplate itemTemplate' <- loadTemplate itemTemplate - let url' = fromMaybe noUrl url + let url' = toUrl $ fromMaybe noUrl url return $ createFeed feedTemplate' itemTemplate' url' configuration items -- Auxiliary: load a template from a datafile |