Don't define Semigroup Binary.Builder instance with binary-0.8.3 and …

…later
ekmett · Apr 28, 2016 · 0681814 · 0681814
1 parent e49e131
commit 0681814
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src-ghc7/Data/Semigroup.hs b/src-ghc7/Data/Semigroup.hs
@@ -127,7 +127,9 @@ import Data.IntMap (IntMap)
 #endif
 
 #ifdef MIN_VERSION_binary
+# if !(MIN_VERSION_binary(0,8,3))
 import qualified Data.Binary.Builder as Builder
+# endif
 #endif
 
 #ifdef MIN_VERSION_bytestring
@@ -796,8 +798,10 @@ instance NFData a => NFData (Last a) where
 -- (==)/XNOR on Bool forms a 'Semigroup', but has no good name
 
 #ifdef MIN_VERSION_binary
+# if !(MIN_VERSION_binary(0,8,3))
 instance Semigroup Builder.Builder where
   (<>) = mappend
+# endif
 #endif
 
 #ifdef MIN_VERSION_bytestring