Use Address32 in XLogData

kadena-io · Jan 28, 2025 · c1485a1 · c1485a1
1 parent 6db3f9f
commit c1485a1
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/Chainweb/PayloadProvider/EVM/SPV.hs b/src/Chainweb/PayloadProvider/EVM/SPV.hs
@@ -44,6 +44,7 @@ import GHC.Generics (Generic)
 import GHC.TypeNats
 import Data.Aeson
 import Ethereum.Utils (HexBytes(..))
+import Chainweb.PayloadProvider.EVM.Utils hiding (ChainId)
 
 -- -------------------------------------------------------------------------- --
 -- Utils
@@ -117,9 +118,9 @@ newtype XChainData = XChainData B.ByteString
 --
 data XLogData = XLogData
     { _xLogDataOperationName :: !XChainOperationName
-    , _xLogDataSenderAddress :: !Address
+    , _xLogDataSenderAddress :: !Address32
     , _xLogDataTargetChain :: !ChainId
-    , _xLogDataTargetContract :: !Address
+    , _xLogDataTargetContract :: !Address32
     , _xLogDataMessage :: !XChainData
     }
     deriving (Show, Eq, Generic)
@@ -141,9 +142,9 @@ parseXLogData v h e = do
 
     return XLogData
         { _xLogDataOperationName = operationName
-        , _xLogDataSenderAddress = _logEntryAddress e
+        , _xLogDataSenderAddress = toAddress32 $ _logEntryAddress e
         , _xLogDataTargetChain = targetChain
-        , _xLogDataTargetContract = Address $ dropN $ t2
+        , _xLogDataTargetContract = Address32 t2
         , _xLogDataMessage = XChainData $ bytes $ _logEntryData e
         }
   where