diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-28 20:44:23 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-28 20:44:23 +0100 |
| commit | 40d921e8e76635a8952015eec9e5de117ce70caf (patch) | |
| tree | 0c929877de14236cd83beae48a7bdd1e1a93ca2a | |
| parent | d016106572b2449328b4f2151d32aec6e18f1d1c (diff) | |
| download | hakyll-40d921e8e76635a8952015eec9e5de117ce70caf.tar.gz | |
Fix URL error in feeds
| -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 |