Forward port to base 4.11.1.0 (ghc 8.4).HEADmaster

1 files changed, 4 insertions, 0 deletions

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