Better lhs writing.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs
index 2a1eae8..d2c73bd 100644
--- a/src/Text/Hakyll/Page.hs
+++ b/src/Text/Hakyll/Page.hs
@@ -63,6 +63,10 @@ readerOptions = defaultParserState { 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
+    }
 
 -- | Get a render function for a given extension.
 getRenderFunction :: String -> (String -> String)