diff --git a/src/ZcashHaskell/Transparent.hs b/src/ZcashHaskell/Transparent.hs
index 6689c08..366dfe4 100644
--- a/src/ZcashHaskell/Transparent.hs
+++ b/src/ZcashHaskell/Transparent.hs
@@ -125,20 +125,20 @@ decodeTransparentAddress taddress = do
                     189 ->
                       Just $
                       TransparentAddress MainNet $
-                      TransparentReceiver P2SH (fromRawBytes digest)
+                      TransparentReceiver P2SH (fromRawBytes transparentReceiver)
                     186 ->
                       Just $
                       TransparentAddress TestNet $
-                      TransparentReceiver P2SH (fromRawBytes digest)
+                      TransparentReceiver P2SH (fromRawBytes transparentReceiver)
                     184 ->
                       Just $
                       TransparentAddress MainNet $
-                      TransparentReceiver P2PKH (fromRawBytes digest)
+                      TransparentReceiver P2PKH (fromRawBytes transparentReceiver)
                     _ -> Nothing
                 29 ->
                   if sb == 37
                     then Just $
                          TransparentAddress TestNet $
-                         TransparentReceiver P2PKH (fromRawBytes digest)
+                         TransparentReceiver P2PKH (fromRawBytes transparentReceiver)
                     else Nothing
                 _ -> Nothing