diff options
| -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 |