@@ -57,9 +57,10 @@ writeMarkdown opts document =
5757-- pictures, or inline formatting).
5858writePlain :: WriterOptions -> Pandoc -> String
5959writePlain opts document =
60− evalState (pandocToMarkdown opts document') WriterState{ stNotes = []
61− , stRefs = []
62− , stPlain = True }
60+ evalState (pandocToMarkdown opts{writerStrictMarkdown = True}
61+ document') WriterState{ stNotes = []
62+ , stRefs = []
63+ , stPlain = True }
6364 where document' = plainify document
6465
6566plainify :: Pandoc -> Pandoc