Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Put an Integer rather than Word64 behind Extensions.

Browse source 
This allows us to expand indefinitely.
No measurable performance penalty.
This commit is contained in:
John MacFarlane 2017-01-15 22:52:14 +01:00
parent 4007d6a897
commit 17916f478b
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Extensions.hs
View file

@ -42,14 +42,13 @@ module Text.Pandoc.Extensions ( Extension(..)
, githubMarkdownExtensions
, multimarkdownExtensions )
where
import Data.Word (Word64)
import Data.Bits (testBit, setBit, clearBit)
import Data.Data (Data)
import Data.Typeable (Typeable)
import GHC.Generics (Generic)
newtype Extensions = Extensions Word64
deriving (Show, Read, Eq, Ord, Bounded, Data, Typeable, Generic)
newtype Extensions = Extensions Integer
deriving (Show, Read, Eq, Ord, Data, Typeable, Generic)
extensionsFromList :: [Extension] -> Extensions
extensionsFromList = foldr enableExtension emptyExtensions