From d752f855827fc6901f851549f8b9029edb1e2177 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 7 Aug 2017 23:20:29 -0700 Subject: CommonMark reader: make exts depend on extensions. --- src/Text/Pandoc/Readers/CommonMark.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc') 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 -- cgit v1.2.3