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