From 40d921e8e76635a8952015eec9e5de117ce70caf Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 28 Feb 2011 20:44:23 +0100 Subject: Fix URL error in feeds --- src/Hakyll/Web/Feed.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Hakyll') 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 -- cgit v1.2.3