diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-08-07 23:20:29 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-07 23:20:29 -0700 |
| commit | d752f855827fc6901f851549f8b9029edb1e2177 (patch) | |
| tree | 7f8a59c4f33ec506a1db4d0bf7364373d52b0e9d /src/Text/Pandoc | |
| parent | 91c989d6221991a47b1f0a9d180ccf3ce96b3f02 (diff) | |
| download | pandoc-d752f855827fc6901f851549f8b9029edb1e2177.tar.gz | |
CommonMark reader: make exts depend on extensions.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/CommonMark.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/CommonMark.hs b/src/Text/Pandoc/Readers/CommonMark.hs index 9a67c8597..4b24ea374 100644 --- a/src/Text/Pandoc/Readers/CommonMark.hs +++ b/src/Text/Pandoc/Readers/CommonMark.hs @@ -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 |