@@ -146,13 +146,15 @@ readers :: [(String, ParserState -> String -> Pandoc)]
146readers = [("native" , \_ -> read)
146readers = [("native" , \_ -> read)
147 ,("json" , \_ -> decodeJSON)
147 ,("json" , \_ -> decodeJSON)
148 ,("markdown" , readMarkdown)
148 ,("markdown" , readMarkdown)
149− ,("markdown+lhs" , readMarkdown)
149+ ,("markdown+lhs" , \st ->
150+ readMarkdown st{ stateLiterateHaskell = True})
150 ,("rst" , readRST)
151 ,("rst" , readRST)
151 ,("textile" , readTextile) -- TODO : textile+lhs
152 ,("textile" , readTextile) -- TODO : textile+lhs
152 ,("rst+lhs" , readRST)
153 ,("rst+lhs" , readRST)
153 ,("html" , readHtml)
154 ,("html" , readHtml)
154 ,("latex" , readLaTeX)
155 ,("latex" , readLaTeX)
155− ,("latex+lhs" , readLaTeX)
156+ ,("latex+lhs" , \st ->
157+ readLaTeX st{ stateLiterateHaskell = True})
158-- | Association list of formats and writers (omitting the
160-- | Association list of formats and writers (omitting the
@@ -161,21 +163,25 @@ writers :: [ ( String, WriterOptions -> Pandoc -> String ) ]
161writers = [("native" , writeNative)
163writers = [("native" , writeNative)
162 ,("json" , \_ -> encodeJSON)
164 ,("json" , \_ -> encodeJSON)
163 ,("html" , writeHtmlString)
165 ,("html" , writeHtmlString)
166+ ,("html+lhs" , \o ->
164− ,("html+lhs" , writeHtmlString)
167+ writeHtmlString o{ writerLiterateHaskell = True })
165 ,("s5" , writeHtmlString)
168 ,("s5" , writeHtmlString)
166 ,("slidy" , writeHtmlString)
169 ,("slidy" , writeHtmlString)
167 ,("docbook" , writeDocbook)
170 ,("docbook" , writeDocbook)
168 ,("opendocument" , writeOpenDocument)
171 ,("opendocument" , writeOpenDocument)
169 ,("latex" , writeLaTeX)
172 ,("latex" , writeLaTeX)
170− ,("latex+lhs" , writeLaTeX)
173+ ,("latex+lhs" , \o ->
174+ writeLaTeX o{ writerLiterateHaskell = True })
171 ,("context" , writeConTeXt)
175 ,("context" , writeConTeXt)
172 ,("texinfo" , writeTexinfo)
176 ,("texinfo" , writeTexinfo)
173 ,("man" , writeMan)
177 ,("man" , writeMan)
174 ,("markdown" , writeMarkdown)
178 ,("markdown" , writeMarkdown)
175− ,("markdown+lhs" , writeMarkdown)
179+ ,("markdown+lhs" , \o ->
180+ writeMarkdown o{ writerLiterateHaskell = True })
176 ,("plain" , writePlain)
181 ,("plain" , writePlain)
177 ,("rst" , writeRST)
182 ,("rst" , writeRST)
178− ,("rst+lhs" , writeRST)
183+ ,("rst+lhs" , \o ->
184+ writeRST o{ writerLiterateHaskell = True })
179 ,("mediawiki" , writeMediaWiki)
185 ,("mediawiki" , writeMediaWiki)
180 ,("textile" , writeTextile)
186 ,("textile" , writeTextile)
181 ,("rtf" , writeRTF)
187 ,("rtf" , writeRTF)