Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

CommonMark reader: make exts depend on extensions.

Browse source
This commit is contained in:
John MacFarlane 2017-08-07 23:20:29 -07:00
parent 91c989d622
commit d752f85582
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Readers/CommonMark.hs
View file

@ -43,8 +43,10 @@ import Text.Pandoc.Options
readCommonMark :: PandocMonad m => ReaderOptions -> Text -> m Pandoc
readCommonMark opts s = return $
nodeToPandoc $ commonmarkToNode opts' exts s
where opts' = [optSmart | enabled Ext_smart]
exts = [extStrikethrough, extTable, extAutolink]
where opts' = [ optSmart | enabled Ext_smart ]
exts = [ extStrikethrough | enabled Ext_strikeout ] ++
[ extTable | enabled Ext_pipe_tables ] ++
[ extAutolink | enabled Ext_autolink_bare_uris ]
enabled x = extensionEnabled x (readerExtensions opts)
nodeToPandoc :: Node -> Pandoc