From 48410d1df03a79d0c9b9a26c761d80f13e51aead Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Tue, 2 Dec 2008 22:42:16 +0000
Subject: Added --lhs-out option.

+ Added writerLiterateHaskell to WriterOptions.
+ Added --lhs-out option to Main.
+ Added --lhs option (combines --lhs-out and --lhs-in)


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1500 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Shared.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Text/Pandoc')

diff --git a/Text/Pandoc/Shared.hs b/Text/Pandoc/Shared.hs
index 799c35e0f..f8c5e8d17 100644
--- a/Text/Pandoc/Shared.hs
+++ b/Text/Pandoc/Shared.hs
@@ -901,6 +901,7 @@ data WriterOptions = WriterOptions
   , writerStrictMarkdown  :: Bool   -- ^ Use strict markdown syntax
   , writerReferenceLinks  :: Bool   -- ^ Use reference links in writing markdown, rst
   , writerWrapText        :: Bool   -- ^ Wrap text to line length
+  , writerLiterateHaskell :: Bool   -- ^ Write as literate haskell
   } deriving Show
 
 -- | Default writer options.
@@ -921,6 +922,7 @@ defaultWriterOptions =
                 , writerStrictMarkdown  = False
                 , writerReferenceLinks  = False
                 , writerWrapText        = True
+                , writerLiterateHaskell = False
                 }
 
 --
-- 
cgit v1.2.3