diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-20 19:33:40 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-20 19:36:40 -0800 |
| commit | 0086329c36a09342b3ad5cade5bc4259b04c3bfb (patch) | |
| tree | 5adc916cd2e3b02d11bda55d2856b86f02dd1d6a /src/Text/Pandoc | |
| parent | 2587543457c915dd5a9714f3c014a44c4b4e887a (diff) | |
| download | pandoc-0086329c36a09342b3ad5cade5bc4259b04c3bfb.tar.gz | |
Plain writer: set stateStrictMarkdown automatically.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index fe03ff113..135f7a7f6 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -57,9 +57,10 @@ writeMarkdown opts document = -- pictures, or inline formatting). writePlain :: WriterOptions -> Pandoc -> String writePlain opts document = - evalState (pandocToMarkdown opts document') WriterState{ stNotes = [] - , stRefs = [] - , stPlain = True } + evalState (pandocToMarkdown opts{writerStrictMarkdown = True} + document') WriterState{ stNotes = [] + , stRefs = [] + , stPlain = True } where document' = plainify document plainify :: Pandoc -> Pandoc |