Add Address32 to EVM.Utils

kadena-io · Jan 28, 2025 · 6db3f9f · 6db3f9f
1 parent e8176c5
commit 6db3f9f
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/src/Chainweb/PayloadProvider/EVM/Utils.hs b/src/Chainweb/PayloadProvider/EVM/Utils.hs
@@ -25,6 +25,8 @@ module Chainweb.PayloadProvider.EVM.Utils
 ( ChainId(..)
 , Randao(..)
 , BlockValue(..)
+, Address32(..)
+, toAddress32
 , _blockValueStu
 , DefaultBlockParameter(..)
 
@@ -183,6 +185,28 @@ newtype ChainId = ChainId { _chainId :: Natural }
     deriving (Show, Eq, Ord, Generic)
     deriving (ToJSON, FromJSON) via (HexQuantity Natural)
 
+-- -------------------------------------------------------------------------- --
+-- Address 32
+
+newtype Address32 = Address32 (BytesN 32)
+    deriving (Show, Eq, Ord)
+    deriving newtype (RLP, Bytes, Storable)
+    deriving (FromJSON, ToJSON) via (HexBytes (BytesN 32))
+
+instance HasTextRepresentation Address32 where
+    toText = toText . HexBytes . bytes
+    fromText = fmap (Address32 . fromHexBytes) . fromText
+    {-# INLINE toText #-}
+    {-# INLINE fromText #-}
+
+toAddress32
+    :: Address
+    -> Address32
+toAddress32 (Address b) = Address32 (appendN zeroN b)
+
+zeroN :: KnownNat n => BytesN n
+zeroN = replicateN 0
+
 -- -------------------------------------------------------------------------- --
 -- Randao