summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Hakyll/Page.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 41ddba6..b58ea0f 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -52,6 +52,10 @@ getPagePath (Page page) =
getBody :: Page -> String
getBody (Page page) = fromMaybe [] $ M.lookup "body" page
+-- | The default reader options for pandoc parsing.
+readerOptions :: ParserState
+readerOptions = defaultParserState { stateSmart = True }
+
-- | The default writer options for pandoc rendering.
writerOptions :: WriterOptions
writerOptions = defaultWriterOptions
@@ -60,7 +64,7 @@ writerOptions = defaultWriterOptions
getRenderFunction :: String -> (String -> String)
getRenderFunction ".html" = id
getRenderFunction ext = writeHtmlString writerOptions
- . readFunction ext defaultParserState
+ . readFunction ext readerOptions
where
readFunction ".rst" = readRST
readFunction ".tex" = readLaTeX