4e381e7 · typeable/pandoc

140import Text.Pandoc.Writers.AsciiDoc

141import Text.Pandoc.Templates

142import Text.Pandoc.Options

143−import Text.Pandoc.Shared (safeRead)

143+import Text.Pandoc.Shared (safeRead, warn)

144import Data.ByteString.Lazy (ByteString)

145import Data.List (intercalate)

146import Data.Version (showVersion)

179readers :: [(String, ReaderOptions -> String -> IO Pandoc)]

180readers = [("native" , \_ s -> return $ readNative s)

181 ,("json" , \_ s -> return $ decodeJSON s)

182− ,("markdown_strict" , \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)

183− ,("markdown" , \o s -> return $ readMarkdown o s)

187+ ,("markdown" , \o s -> do

188+ let (doc, warnings) = readMarkdownWithWarnings o s

189+ mapM_ warn warnings

190+ return doc)

184 ,("rst" , \o s -> return $ readRST o s)

191 ,("rst" , \o s -> return $ readRST o s)

185 ,("mediawiki" , \o s -> return $ readMediaWiki o s)

192 ,("mediawiki" , \o s -> return $ readMediaWiki o s)

186 ,("docbook" , \o s -> return $ readDocBook o s)

193 ,("docbook" , \o s -> return $ readDocBook o s)