From 495d9fbac3d633b768d910fced5cf00d00118fa0 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sat, 13 Jul 2019 15:19:49 -0400 Subject: cpp conditionals died of old age --- kiki.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'kiki.hs') diff --git a/kiki.hs b/kiki.hs index eb997ac..1b5984e 100644 --- a/kiki.hs +++ b/kiki.hs @@ -411,13 +411,9 @@ bitcoinAddress network_id k = address Just (MPI x) = lookup 'x' (key k) Just (MPI y) = lookup 'y' (key k) pub = cannonical_eckey x y -#if !defined(VERSION_cryptonite) - hsh = S.cons network_id . RIPEMD160.hash . SHA256.hash . S.pack $ pub -#else hsh = S.cons network_id . ripemd160 . sha256 . S.pack $ pub sha256 x = convert (Crypto.Hash.hash x :: Digest SHA256) :: S.ByteString ripemd160 x = convert (Crypto.Hash.hash x :: Digest RIPEMD160) :: S.ByteString -#endif address = base58_encode hsh whoseKey :: RSAPublicKey -> Map.Map KeyKey KeyData -> [KeyData] -- cgit v1.2.3