@@ -140,7 +140,7 @@ import Text.Pandoc.Writers.Org
140140import Text.Pandoc.Writers.AsciiDoc
141141import Text.Pandoc.Templates
142142import Text.Pandoc.Options
143−import Text.Pandoc.Shared (safeRead)
143+import Text.Pandoc.Shared (safeRead, warn)
144144import Data.ByteString.Lazy (ByteString)
145145import Data.List (intercalate)
146146import Data.Version (showVersion)
@@ -179,8 +179,15 @@ parseFormatSpec = parse formatSpec ""
179179readers :: [(String, ReaderOptions -> String -> IO Pandoc)]
180180readers = [("native" , \_ s -> return $ readNative s)
181181 ,("json" , \_ s -> return $ decodeJSON s)
182− ,("markdown_strict" , \o s -> return $ readMarkdown o s)
183− ,("markdown" , \o s -> return $ readMarkdown o s)
182+ ,("markdown_strict" , \o s -> do
183+ let (doc, warnings) = readMarkdownWithWarnings
184+ o{ readerExtensions = strictExtensions } s
185+ mapM_ warn warnings
186+ return doc)
187+ ,("markdown" , \o s -> do
188+ let (doc, warnings) = readMarkdownWithWarnings o s
189+ mapM_ warn warnings
190+ return doc)
184191 ,("rst" , \o s -> return $ readRST o s)
185192 ,("mediawiki" , \o s -> return $ readMediaWiki o s)
186193 ,("docbook" , \o s -> return $ readDocBook o s)