diff --git a/bitcoin-payment-channel.cabal b/bitcoin-payment-channel.cabal
--- a/bitcoin-payment-channel.cabal
+++ b/bitcoin-payment-channel.cabal
@@ -1,5 +1,5 @@
 name:                 bitcoin-payment-channel
-version:              0.3.0.0
+version:              0.3.0.1
 synopsis:             Library for working with Bitcoin payment channels
 description:
     A Bitcoin payment channel allows secure and instant transfer of bitcoins from one
@@ -55,7 +55,6 @@
                         haskoin-core        >= 0.4.0  && < 0.5.0,
                         base16-bytestring   >= 0.1.0  && < 0.2.0,
                         base64-bytestring   >= 1.0.0  && < 1.1.0,
-                        binary              >= 0.7.0  && < 0.9.0,
                         bytestring          >= 0.10.0 && < 0.11.0,
                         cereal              >= 0.5.0  && < 0.6.0,
                         errors              >= 2.0.0  && < 2.2.0,
@@ -74,12 +73,13 @@
 
   ghc-options:          -W
 
-  build-depends:        base >= 4.7 && < 5,
-                        haskoin-core >= 0.3.0 && < 1.0.0,
-                        bytestring, base16-bytestring, base64-bytestring,
+  build-depends:        base         >= 4.7   && < 5,
+                        haskoin-core >= 0.4.0 && < 1.0.0,
+                        bytestring,
+                        base16-bytestring, base64-bytestring,
                         base58string, hexstring, text,
                         time,
-                        cereal, binary, aeson,
+                        cereal, aeson,
 
                         QuickCheck,
                         bitcoin-payment-channel
diff --git a/src/Data/Bitcoin/PaymentChannel/Internal/Bitcoin/Amount.hs b/src/Data/Bitcoin/PaymentChannel/Internal/Bitcoin/Amount.hs
--- a/src/Data/Bitcoin/PaymentChannel/Internal/Bitcoin/Amount.hs
+++ b/src/Data/Bitcoin/PaymentChannel/Internal/Bitcoin/Amount.hs
@@ -3,9 +3,6 @@
 import qualified Data.Serialize     as Ser
 import qualified Data.Serialize.Put as SerPut
 import qualified Data.Serialize.Get as SerGet
-import qualified Data.Binary        as Bin
-import qualified Data.Binary.Put    as BinPut
-import qualified Data.Binary.Get    as BinGet
 import           Data.Word
 
 
@@ -48,10 +45,6 @@
     max 0 cappedValue
         where
             cappedValue = min i $ fromIntegral (maxBound :: Word64)
-
-instance Bin.Binary BitcoinAmount where
-    put = BinPut.putWord64le . fromIntegral . toInteger
-    get = BitcoinAmount . fromIntegral <$> BinGet.getWord64le
 
 instance Ser.Serialize BitcoinAmount where
     put = SerPut.putWord64le . fromIntegral . toInteger