diff options
| -rw-r--r-- | src/Text/Pandoc.hs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/Text/Pandoc.hs b/src/Text/Pandoc.hs index 18ca069d3..ca4a1e02b 100644 --- a/src/Text/Pandoc.hs +++ b/src/Text/Pandoc.hs @@ -140,7 +140,7 @@ import Text.Pandoc.Writers.Org import Text.Pandoc.Writers.AsciiDoc import Text.Pandoc.Templates import Text.Pandoc.Options -import Text.Pandoc.Shared (safeRead) +import Text.Pandoc.Shared (safeRead, warn) import Data.ByteString.Lazy (ByteString) import Data.List (intercalate) import Data.Version (showVersion) @@ -179,8 +179,15 @@ parseFormatSpec = parse formatSpec "" readers :: [(String, ReaderOptions -> String -> IO Pandoc)] readers = [("native" , \_ s -> return $ readNative s) ,("json" , \_ s -> return $ decodeJSON s) - ,("markdown_strict" , \o s -> return $ readMarkdown o s) - ,("markdown" , \o s -> return $ readMarkdown o s) + ,("markdown_strict" , \o s -> do + let (doc, warnings) = readMarkdownWithWarnings + o{ readerExtensions = strictExtensions } s + mapM_ warn warnings + return doc) + ,("markdown" , \o s -> do + let (doc, warnings) = readMarkdownWithWarnings o s + mapM_ warn warnings + return doc) ,("rst" , \o s -> return $ readRST o s) ,("mediawiki" , \o s -> return $ readMediaWiki o s) ,("docbook" , \o s -> return $ readDocBook o s) |