summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/App.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-08-07 22:34:38 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2017-08-07 22:34:38 -0700
commit6a9db1fde3b592a843b5fa6ce843a46cb3163968 (patch)
tree4963adfd3de74cd755f953d804b78c96ef666435 /src/Text/Pandoc/App.hs
parent834e9498f9e10ec45f915259d534b917f0c72136 (diff)
Issue deprecation warning for `markdown_github`.
Advise to use `gfm` instead.
Diffstat (limited to 'src/Text/Pandoc/App.hs')
-rw-r--r--src/Text/Pandoc/App.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index 498cfae22..a56ae8149 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -76,8 +76,9 @@ import System.IO.Error (isDoesNotExistError)
import Text.Pandoc
import Text.Pandoc.Builder (setMeta)
import Text.Pandoc.Class (PandocIO, extractMedia, fillMediaBag, getLog,
- setResourcePath, getMediaBag, setTrace)
+ setResourcePath, getMediaBag, setTrace, report)
import Text.Pandoc.Highlighting (highlightingStyles)
+import Text.Pandoc.Logging (LogMessage(..))
import Text.Pandoc.Lua (runLuaFilter, LuaException(..))
import Text.Pandoc.Writers.Math (defaultMathJaxURL, defaultKaTeXURL)
import Text.Pandoc.PDF (makePDF)
@@ -444,6 +445,9 @@ convertWithOpts opts = do
Native -> nativeNewline
runIO' $ do
+ when (readerName == "markdown_github" ||
+ writerName == "markdown_github") $
+ report $ Deprecated "markdown_github" "Use gfm instead."
setResourcePath (optResourcePath opts)
doc <- sourceToDoc sources >>=
( (if isJust (optExtractMedia opts)