17916f4 · typeable/pandoc

git.iko.soy/typeable/pandoc

Put an Integer rather than Word64 behind Extensions.

This allows us to expand indefinitely. No measurable performance penalty.

commit17916f478bc949e53c49720d0d930e03b0367176 authorJohn MacFarlane <jgm@berkeley.edu> dateSun 15 Jan 2017, 22:52 (10 years ago) parent4007d6a

1 file changed+2−3

unifiedsplit

src/Text/Pandoc/Extensions.hs+2−3

@@ -42,14 +42,13 @@ module Text.Pandoc.Extensions ( Extension(..)

4242 , githubMarkdownExtensions

4343 , multimarkdownExtensions )

4444where

45−import Data.Word (Word64)

4645import Data.Bits (testBit, setBit, clearBit)

4746import Data.Data (Data)

4847import Data.Typeable (Typeable)

4948import GHC.Generics (Generic)

5049

51−newtype Extensions = Extensions Word64

52− deriving (Show, Read, Eq, Ord, Bounded, Data, Typeable, Generic)

50+newtype Extensions = Extensions Integer

51+ deriving (Show, Read, Eq, Ord, Data, Typeable, Generic)

5352

5453extensionsFromList :: [Extension] -> Extensions

5554extensionsFromList = foldr enableExtension emptyExtensions