diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,6 @@
+- 0.1.5.1
+  - Fix issue with binary-0.8.4.* and GHC-7.*
+
 - 0.1.5.0
   - Add `CI a` instance
   - Add `Alt f a` instance for `base >= 4.8.0.0`
diff --git a/binary-orphans.cabal b/binary-orphans.cabal
--- a/binary-orphans.cabal
+++ b/binary-orphans.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           binary-orphans
-version:        0.1.5.0
+version:        0.1.5.1
 synopsis:       Orphan instances for binary
 description:    `binary-orphans` defines orphan instances for types in some popular packages.
 category:       Web
@@ -73,6 +73,7 @@
     , unordered-containers     >=0.2.5.1   && <0.3
     , vector                   >=0.10.12.3 && <0.12
     , binary-orphans
+    , QuickCheck           >=2.7      && <2.9.2
     , quickcheck-instances >=0.3.11   && <0.3.13
     , tasty                >=0.10.1.2 && <0.12
     , tasty-quickcheck     >=0.8.3.2  && <0.9
diff --git a/src/Data/Binary/Orphans.hs b/src/Data/Binary/Orphans.hs
--- a/src/Data/Binary/Orphans.hs
+++ b/src/Data/Binary/Orphans.hs
@@ -155,7 +155,7 @@
   put = put . flip Time.diffAbsoluteTime Time.taiEpoch
 
 
-#if !MIN_VERSION_binary(0,8,4) || !MIN_VERSION_base(4,9,0)
+#if !MIN_VERSION_binary(0,8,4)
 
 -------------------------------------------------------------------------------
 -- Monoid
@@ -202,11 +202,13 @@
   get = fmap Monoid.Alt get
   put = put . Monoid.getAlt
 #endif
+#endif
 
 -------------------------------------------------------------------------------
 -- semigroups
 -------------------------------------------------------------------------------
 
+#if !MIN_VERSION_binary(0,8,4) || !MIN_VERSION_base(4,9,0)
 -- | /Since: binary-orphans-0.1.3.0/
 instance Binary a => Binary (Semigroup.Min a) where
   get = fmap Semigroup.Min get
diff --git a/test/Tests.hs b/test/Tests.hs
--- a/test/Tests.hs
+++ b/test/Tests.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 module Main (main) where
 
 import Data.Binary
@@ -14,6 +15,8 @@
 import Data.Monoid (Sum)
 import Data.Text (Text)
 import Data.CaseInsensitive (CI)
+import Data.Monoid (Sum(..))
+import Data.Semigroup (Min(..))
 
 import qualified Data.CaseInsensitive as CI
 
@@ -33,6 +36,8 @@
   , QC.testProperty "LocalTime"       $ roundtrip (Proxy :: Proxy LocalTime)
   , QC.testProperty "AbsoluteTime"    $ roundtrip (Proxy :: Proxy AbsoluteTime)
   , QC.testProperty "CI Text"         $ roundtrip (Proxy :: Proxy (CI Text))
+  , QC.testProperty "Sum Int"         $ roundtrip (Proxy :: Proxy (Sum Int))
+  , QC.testProperty "Min Int"         $ roundtrip (Proxy :: Proxy (Min Int))
   ]
 
 roundtrip :: (Eq a, Show a, Binary a) => Proxy a -> a -> Property
@@ -40,3 +45,13 @@
 
 instance (CI.FoldCase a, Arbitrary a) => Arbitrary (CI a) where
     arbitrary = fmap CI.mk arbitrary
+
+instance Arbitrary a => Arbitrary (Min a) where
+    arbitrary = fmap Min arbitrary
+    shrink = fmap Min . shrink . getMin
+
+#if !MIN_VERSION_QuickCheck(2,9,0)
+instance Arbitrary a => Arbitrary (Sum a) where
+    arbitrary = fmap Sum arbitrary
+    shrink = fmap Sum . shrink . getSum
+#endif