summaryrefslogtreecommitdiff
path: root/src/pandoc.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-07-25 20:20:03 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-07-25 22:05:06 -0700
commit856aa8c244b86a51d4229bf7c5f3799d231570f7 (patch)
treec1ad40da3b54b859be20a01c8307d1651df7a7af /src/pandoc.hs
parent1dba82f25ee17590bf03b00659662240460b7824 (diff)
Moved stateLiterateHaskell to readerLiterateHaskell in Options.
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r--src/pandoc.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs
index ba8c19dad..884e851f9 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -936,9 +936,7 @@ main = do
then "."
else takeDirectory (head sources)
- let startParserState = def{ stateLiterateHaskell = "+lhs" `isSuffixOf` readerName' ||
- lhsExtension sources,
- stateCitations = map CSL.refId refs,
+ let startParserState = def{ stateCitations = map CSL.refId refs,
stateOptions = def{
readerStrict = strict
, readerSmart = smart || (texLigatures &&
@@ -947,6 +945,9 @@ main = do
, readerColumns = columns
, readerTabStop = tabStop
, readerOldDashes = oldDashes
+ , readerLiterateHaskell =
+ "+lhs" `isSuffixOf` readerName' ||
+ lhsExtension sources
},
stateIndentedCodeClasses = codeBlockClasses,
stateApplyMacros = not laTeXOutput