From 87e7e99a8c1ced4a861d3d801c4fb4ea7d615dcf Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Tue, 16 Feb 2010 17:24:32 +0100
Subject: Better lhs writing.

---
 src/Text/Hakyll/Page.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Text')

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)
-- 
cgit v1.2.3