diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Base58.hs | 4 |
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 | |||
38 | hash_result = S.take 4 . SHA256.hash . SHA256.hash . S.pack $ a_payload | 38 | hash_result = S.take 4 . SHA256.hash . SHA256.hash . S.pack $ a_payload |
39 | #else | 39 | #else |
40 | hash_result = S.take 4 . convert $ digest | 40 | hash_result = S.take 4 . convert $ digest |
41 | where digest = hash (S.pack a_payload) :: Digest SHA256 | 41 | where digest = hash diges1 :: Digest SHA256 |
42 | diges1 = hash (S.pack a_payload) :: Digest SHA256 | ||
42 | #endif | 43 | #endif |
43 | expected_hash = S.pack $ reverse rcksum | 44 | expected_hash = S.pack $ reverse rcksum |
44 | (network_id,payload) = splitAt 1 a_payload | 45 | (network_id,payload) = splitAt 1 a_payload |
45 | |||
46 | network_id <- listToMaybe network_id | 46 | network_id <- listToMaybe network_id |
47 | guard (hash_result==expected_hash) | 47 | guard (hash_result==expected_hash) |
48 | return (network_id,payload) | 48 | return (network_id,payload) |