@@ -146,13 +146,15 @@ readers :: [(String, ParserState -> String -> Pandoc)]
146146readers = [("native" , \_ -> read)
147147 ,("json" , \_ -> decodeJSON)
148148 ,("markdown" , readMarkdown)
149− ,("markdown+lhs" , readMarkdown)
149+ ,("markdown+lhs" , \st ->
150+ readMarkdown st{ stateLiterateHaskell = True})
150151 ,("rst" , readRST)
151152 ,("textile" , readTextile) -- TODO : textile+lhs
152153 ,("rst+lhs" , readRST)
153154 ,("html" , readHtml)
154155 ,("latex" , readLaTeX)
155− ,("latex+lhs" , readLaTeX)
156+ ,("latex+lhs" , \st ->
157+ readLaTeX st{ stateLiterateHaskell = True})
156158 ]
157159
158160-- | Association list of formats and writers (omitting the
@@ -161,21 +163,25 @@ writers :: [ ( String, WriterOptions -> Pandoc -> String ) ]
161163writers = [("native" , writeNative)
162164 ,("json" , \_ -> encodeJSON)
163165 ,("html" , writeHtmlString)
164− ,("html+lhs" , writeHtmlString)
166+ ,("html+lhs" , \o ->
167+ writeHtmlString o{ writerLiterateHaskell = True })
165168 ,("s5" , writeHtmlString)
166169 ,("slidy" , writeHtmlString)
167170 ,("docbook" , writeDocbook)
168171 ,("opendocument" , writeOpenDocument)
169172 ,("latex" , writeLaTeX)
170− ,("latex+lhs" , writeLaTeX)
173+ ,("latex+lhs" , \o ->
174+ writeLaTeX o{ writerLiterateHaskell = True })
171175 ,("context" , writeConTeXt)
172176 ,("texinfo" , writeTexinfo)
173177 ,("man" , writeMan)
174178 ,("markdown" , writeMarkdown)
175− ,("markdown+lhs" , writeMarkdown)
179+ ,("markdown+lhs" , \o ->
180+ writeMarkdown o{ writerLiterateHaskell = True })
176181 ,("plain" , writePlain)
177182 ,("rst" , writeRST)
178− ,("rst+lhs" , writeRST)
183+ ,("rst+lhs" , \o ->
184+ writeRST o{ writerLiterateHaskell = True })
179185 ,("mediawiki" , writeMediaWiki)
180186 ,("textile" , writeTextile)
181187 ,("rtf" , writeRTF)