Update HyperlaneNatives.hs

kadena-io · May 10, 2024 · f945d7d · f945d7d
1 parent f5c90f1
commit f945d7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Crypto/Hash/HyperlaneNatives.hs b/src/Crypto/Hash/HyperlaneNatives.hs
@@ -320,7 +320,7 @@ decodeHyperlaneTokenMessageObject :: Object Name -> Either HyperlaneError TokenM
 decodeHyperlaneTokenMessageObject o = do
   let om = _objectMap (_oObject o)
 
-  tmRecipient <- decodeBase64 <$> grabField om "recipient" _LString
+  tmRecipient <- decodeBase64 "recipient" =<< grabField om "recipient" _LString
   tmAmount    <- decimalToWord <$> grabField om "amount" _LDecimal
   tmChainId   <- parseChainId =<< grabField om "chainId" _LString