removes aeson and conduit

Author: ProofOfKeags

bitcoin.cabal

@@ -93,15 +93,13 @@ library
       src
   build-depends:
       QuickCheck >=2.13.2
-    , aeson >=1.4.6.0
     , array >=0.5.4.0
     , base >=4.9 && <5
     , base16 >=0.3.0.1
     , binary >=0.8.8
     , bytes >=0.17
     , bytestring >=0.10.10.0
     , cereal >=0.5.8
-    , conduit >=1.3.1.2
     , containers >=0.6.2.1
     , cryptonite >=0.26
     , deepseq >=1.4.4.0
@@ -148,7 +146,6 @@ test-suite spec
   build-depends:
       HUnit >=1.6.0.0
     , QuickCheck >=2.13.2
-    , aeson >=1.4.6.0
     , array >=0.5.4.0
     , base >=4.9 && <5
     , base16 >=0.3.0.1
@@ -158,7 +155,6 @@ test-suite spec
     , bytes >=0.17
     , bytestring >=0.10.10.0
     , cereal >=0.5.8
-    , conduit >=1.3.1.2
     , containers >=0.6.2.1
     , cryptonite >=0.26
     , deepseq >=1.4.4.0

package.yaml

@@ -19,15 +19,13 @@ extra-source-files:
   - README.md
   - CHANGELOG.md
 dependencies:
-  - aeson >= 1.4.6.0
   - array >= 0.5.4.0
   - base >=4.9 && <5
   - base16 >= 0.3.0.1
   - binary >= 0.8.8
   - bytes >= 0.17
   - bytestring >= 0.10.10.0
   - cereal >= 0.5.8
-  - conduit >= 1.3.1.2
   - containers >= 0.6.2.1
   - cryptonite >= 0.26
   - deepseq >= 1.4.4.0

src/Haskoin/Address.hs

@@ -26,9 +26,6 @@ module Haskoin.Address (
     textToAddr,
     bech32ToAddr,
     base58ToAddr,
-    addrToJSON,
-    addrToEncoding,
-    addrFromJSON,
     pubKeyAddr,
     pubKeyWitnessAddr,
     pubKeyCompatWitnessAddr,
@@ -54,9 +51,6 @@ import Control.Applicative
 import Control.Arrow (second)
 import Control.DeepSeq
 import Control.Monad
-import Data.Aeson as A
-import Data.Aeson.Encoding as A
-import Data.Aeson.Types
 import Data.Binary (Binary (..))
 import Data.ByteString (ByteString)
 import qualified Data.ByteString as B
@@ -184,24 +178,6 @@ isWitnessAddress WitnessAddress{} = True
 isWitnessAddress _ = False
 
 
-addrToJSON :: Network -> Address -> Value
-addrToJSON net a = toJSON (addrToText net a)
-
-
-addrToEncoding :: Network -> Address -> Encoding
-addrToEncoding net = maybe null_ text . addrToText net
-
-
--- | JSON parsing for Bitcoin addresses. Works with 'Base58', 'CashAddr' and
--- 'Bech32'.
-addrFromJSON :: Network -> Value -> Parser Address
-addrFromJSON net =
-    withText "address" $ \t ->
-        case textToAddr net t of
-            Nothing -> fail "could not decode address"
-            Just x -> return x
-
-
 -- | Convert address to human-readable string. Uses 'Base58', 'Bech32', or
 -- 'CashAddr' depending on network.
 addrToText :: Network -> Address -> Maybe Text