diff --git a/src/Crypto/Hash/HyperlaneNatives.hs b/src/Crypto/Hash/HyperlaneNatives.hs index 9a4a8966e..4d52535c7 100644 --- a/src/Crypto/Hash/HyperlaneNatives.hs +++ b/src/Crypto/Hash/HyperlaneNatives.hs @@ -270,7 +270,7 @@ decodeHyperlaneMessageObject o = do hmVersion <- grabInt @Word8 om "version" hmNonce <- grabInt @Word32 om "nonce" hmOriginDomain <- grabInt @Word32 om "originDomain" - hmSender <- decodeHex "sender" =<< grabField om "sender" _LString + hmSender <- Text.encodeUtf8 <$> grabField om "sender" _LString hmDestinationDomain <- grabInt @Word32 om "destinationDomain" hmRecipient <- decodeHex "recipient" =<< grabField om "recipient" _LString