Plain writer: set stateStrictMarkdown automatically.

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