diff options
| -rw-r--r-- | examples/feedblog/hakyll.hs | 1 | ||||
| -rw-r--r-- | src/Text/Hakyll/Internal/Page.hs | 9 |
2 files changed, 5 insertions, 5 deletions
diff --git a/examples/feedblog/hakyll.hs b/examples/feedblog/hakyll.hs index 92fd4a8..c8633a9 100644 --- a/examples/feedblog/hakyll.hs +++ b/examples/feedblog/hakyll.hs @@ -34,7 +34,6 @@ main = hakyll "http://example.com" $ do mapM_ (renderChain ["templates/post.html", "templates/default.html"]) postPages -- Render RSS feed. - let renderRss myFeedConfiguration $ map (>>> copyValue "body" "description") (take 3 postPages) diff --git a/src/Text/Hakyll/Internal/Page.hs b/src/Text/Hakyll/Internal/Page.hs index 8f1b9d6..0ba8983 100644 --- a/src/Text/Hakyll/Internal/Page.hs +++ b/src/Text/Hakyll/Internal/Page.hs @@ -42,10 +42,11 @@ getRenderFunction Text = id getRenderFunction fileType = writeHtmlString writerOptions . readFunction fileType (readOptions fileType) where - readFunction ReStructuredText = readRST - readFunction LaTeX = readLaTeX - readFunction Markdown = readMarkdown - readFunction t = error $ "Cannot render file " ++ show t + readFunction ReStructuredText = readRST + readFunction LaTeX = readLaTeX + readFunction Markdown = readMarkdown + readFunction LiterateHaskellMarkdown = readMarkdown + readFunction t = error $ "Cannot render " ++ show t readOptions LiterateHaskellMarkdown = readerOptions { stateLiterateHaskell = True } |