Make Extensions a custom type instead of a Set Extension.

The type is implemented in terms of an underlying bitset
which should be more efficient.

API change: from Text.Pandoc.Extensions export Extensions,
emptyExtensions, extensionsFromList, enableExtension, disableExtension,
extensionEnabled.

1 files changed, 1 insertions, 2 deletions

diff --git a/pandoc.hs b/pandoc.hs
index b758aaa97..cd29428ec 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -47,7 +47,6 @@ import System.Environment ( getArgs, getProgName, getEnvironment )
 import System.Exit ( ExitCode (..), exitSuccess )
 import System.FilePath
 import System.Console.GetOpt
-import qualified Data.Set as Set
 import Data.Char ( toLower, toUpper )
 import Data.List ( intercalate, isPrefixOf, isSuffixOf, sort )
 import System.Directory ( getAppUserDataDirectory, findExecutable,
@@ -1295,7 +1294,7 @@ options =
                  (NoArg
                   (\_ -> do
                      let showExt x = drop 4 (show x) ++
-                                       if x `Set.member` pandocExtensions
+                                       if extensionEnabled x pandocExtensions
                                           then " +"
                                           else " -"
                      mapM_ (UTF8.hPutStrLn stdout . showExt)