diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-03-16 12:11:51 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-03-16 12:17:58 -0700 |
| commit | f0b6e0ee4970c2338159c376935d375f4aeda1dc (patch) | |
| tree | a5d344782e5da8b0929af6502cba90025a4fdb3a /src/Text/Pandoc/Extensions.hs | |
| parent | e21b57991e589d88f50991b87c6ec01d350e9b22 (diff) | |
| download | pandoc-f0b6e0ee4970c2338159c376935d375f4aeda1dc.tar.gz | |
Monoid/Semiground cleanup relying on custom Prelude.
Diffstat (limited to 'src/Text/Pandoc/Extensions.hs')
| -rw-r--r-- | src/Text/Pandoc/Extensions.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Extensions.hs b/src/Text/Pandoc/Extensions.hs index 31ca0d2f4..f1a264d82 100644 --- a/src/Text/Pandoc/Extensions.hs +++ b/src/Text/Pandoc/Extensions.hs @@ -60,17 +60,11 @@ import Text.Parsec newtype Extensions = Extensions Integer deriving (Show, Read, Eq, Ord, Data, Typeable, Generic, ToJSON, FromJSON) -#if MIN_VERSION_base(4,9,0) instance Semigroup Extensions where (Extensions a) <> (Extensions b) = Extensions (a .|. b) instance Monoid Extensions where mempty = Extensions 0 mappend = (<>) -#else -instance Monoid Extensions where - mempty = Extensions 0 - mappend (Extensions a) (Extensions b) = Extensions (a .|. b) -#endif extensionsFromList :: [Extension] -> Extensions extensionsFromList = foldr enableExtension emptyExtensions |