From c9d4624a42c231ed200b69f1d6bf51c323febbbb Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 16 Feb 2010 19:18:53 +0100 Subject: Updated tests. --- src/Text/Hakyll/Page.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs index d2c73bd..54f9c84 100644 --- a/src/Text/Hakyll/Page.hs +++ b/src/Text/Hakyll/Page.hs @@ -58,14 +58,18 @@ getBody (Page page) = fromMaybe [] $ M.lookup "body" page -- | The default reader options for pandoc parsing. readerOptions :: ParserState -readerOptions = defaultParserState { stateSmart = True } +readerOptions = defaultParserState + { -- The following option causes pandoc to read smart typography, a nice + -- and free bonus. + stateSmart = True + } -- | The default writer options for pandoc rendering. writerOptions :: WriterOptions writerOptions = defaultWriterOptions { -- This option causes literate haskell to be written using '>' marks in -- html, which I think is a good default. - , writerLiterateHaskell = True + writerLiterateHaskell = True } -- | Get a render function for a given extension. -- cgit v1.2.3