cryptonite-based bitcoin: fixed missing hash.

1 files changed, 2 insertions, 2 deletions

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)