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

Extensions: Monoid instance for Extensions.

Browse source 
[API change]
This commit is contained in:
John MacFarlane 2017-06-24 13:20:30 +02:00
parent a20302d9cf
commit a9259c1501
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -45,7 +45,7 @@ module Text.Pandoc.Extensions ( Extension(..)
, githubMarkdownExtensions , githubMarkdownExtensions
, multimarkdownExtensions ) , multimarkdownExtensions )
where where
import Data.Bits (clearBit, setBit, testBit) import Data.Bits (clearBit, setBit, testBit, (.|.))
import Data.Data (Data) import Data.Data (Data)
import Data.Typeable (Typeable) import Data.Typeable (Typeable)
import GHC.Generics (Generic) import GHC.Generics (Generic)
@ -55,6 +55,10 @@ import Text.Parsec
newtype Extensions = Extensions Integer newtype Extensions = Extensions Integer
deriving (Show, Read, Eq, Ord, Data, Typeable, Generic) deriving (Show, Read, Eq, Ord, Data, Typeable, Generic)
instance Monoid Extensions where
mempty = Extensions 0
mappend (Extensions a) (Extensions b) = Extensions (a .|. b)
extensionsFromList :: [Extension] -> Extensions extensionsFromList :: [Extension] -> Extensions
extensionsFromList = foldr enableExtension emptyExtensions extensionsFromList = foldr enableExtension emptyExtensions