From 59c47a9099a9fd8f9e7faed2e0f4dba34cf2cdac Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 22 Jun 2018 15:34:11 -0400 Subject: Forward port to base 4.11.1.0 (ghc 8.4). --- src/Data/BEncode/BDict.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Data/BEncode/BDict.hs b/src/Data/BEncode/BDict.hs index b90f60b..2f5d7c3 100644 --- a/src/Data/BEncode/BDict.hs +++ b/src/Data/BEncode/BDict.hs @@ -37,6 +37,7 @@ module Data.BEncode.BDict import Control.DeepSeq import Data.ByteString as BS import Data.Foldable +import Data.Semigroup import Data.Monoid @@ -70,6 +71,9 @@ instance Foldable BDictMap where go (Cons _ v xs) = f v `mappend` go xs {-# INLINE foldMap #-} +instance Semigroup (BDictMap a) where + (<>) = Data.BEncode.BDict.union + instance Monoid (BDictMap a) where mempty = Data.BEncode.BDict.empty mappend = Data.BEncode.BDict.union -- cgit v1.2.3