From d752f855827fc6901f851549f8b9029edb1e2177 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Mon, 7 Aug 2017 23:20:29 -0700
Subject: [PATCH] CommonMark reader: make exts depend on extensions.
---
src/Text/Pandoc/Readers/CommonMark.hs | 6 ++++--
1 file 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