fix decodeHyperlaneMessageObject

kadena-io · Apr 8, 2024 · 8440bb2 · 8440bb2
1 parent 85301ef
commit 8440bb2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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