From 8925f9cdf05f27a905da20687c3141c90dc09c8d Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Thu, 25 Aug 2016 17:58:15 -0400
Subject: cryptonite-based bitcoin: fixed missing hash.

---
 lib/Base58.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/Base58.hs')

diff --git a/lib/Base58.hs b/lib/Base58.hs
index 3c1a113..2de841d 100644
--- a/lib/Base58.hs
+++ b/lib/Base58.hs
@@ -38,11 +38,11 @@ base58_decode str = do
         hash_result = S.take 4 . SHA256.hash . SHA256.hash . S.pack $ a_payload
 #else
         hash_result = S.take 4 . convert $ digest
-          where digest = hash (S.pack a_payload) :: Digest SHA256
+          where digest = hash diges1             :: Digest SHA256
+                diges1 = hash (S.pack a_payload) :: Digest SHA256
 #endif
         expected_hash = S.pack $ reverse rcksum
         (network_id,payload) = splitAt 1 a_payload
-    
     network_id <- listToMaybe network_id
     guard (hash_result==expected_hash)
     return (network_id,payload)
-- 
cgit v1.2.3