From 1a6c815631526714826b54fc7291c1da56820261 Mon Sep 17 00:00:00 2001
From: chessai <chessai1996@gmail.com>
Date: Wed, 3 Apr 2024 16:23:51 -0500
Subject: [PATCH] delete some comments

---
 src/Crypto/Hash/HyperlaneNatives.hs | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/src/Crypto/Hash/HyperlaneNatives.hs b/src/Crypto/Hash/HyperlaneNatives.hs
index 38c02c22c..16a77fcd7 100644
--- a/src/Crypto/Hash/HyperlaneNatives.hs
+++ b/src/Crypto/Hash/HyperlaneNatives.hs
@@ -148,19 +148,6 @@ packHyperlaneMessage (HyperlaneMessage{..}) =
   <> BB.byteString (padLeft hmRecipient)
   <> packTokenMessageERC20 hmTokenMessage
 
-{-
-putHyperlaneMessage :: HyperlaneMessage -> Put
-putHyperlaneMessage (HyperlaneMessage {..}) = do
-  putWord8 hmVersion
-  putWord32be hmNonce
-  putWord32be hmOriginDomain
-  putRawByteString (padLeft hmSender)
-  putWord32be hmDestinationDomain
-  putRawByteString (padLeft hmRecipient)
-
-  putTokenMessageERC20 hmTokenMessage
--}
-
 -- types shorter than 32 bytes are concatenated directly, without padding or sign extension
 -- dynamic types are encoded in-place and without the length.
 -- array elements are padded, but still encoded in-place
@@ -201,7 +188,7 @@ putHyperlaneMessage (HyperlaneMessage {..}) = do
 packTokenMessageERC20 :: TokenMessageERC20 -> Builder
 packTokenMessageERC20 t =
   word256BE 96
-  <> word256BE (tmAmount t) --round (wordToDecimal (tmAmount t))) -- amount --
+  <> word256BE (tmAmount t)
   <> word256BE (tmChainId t)
   <> word256BE recipientSize
   <> BB.byteString recipient