From b248f28efcd6bc3ee1a440110c3cf2a9dbfb0485 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Mon, 8 Jan 2024 21:30:21 +0000
Subject: [PATCH] remove fromIntegral

---
 src/Simplex/Messaging/Protocol.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Messaging/Protocol.hs b/src/Simplex/Messaging/Protocol.hs
index da5296337..539d6d348 100644
--- a/src/Simplex/Messaging/Protocol.hs
+++ b/src/Simplex/Messaging/Protocol.hs
@@ -1320,7 +1320,7 @@ batchTransmissions' batch bSize
     mkBatch1 :: (SentRawTransmission, r) -> TransportBatch r
     mkBatch1 (t, r)
       -- 2 bytes are reserved for pad size
-      | BB.length s <= fromIntegral (bSize - 2) = TBTransmission s r
+      | BB.length s <= bSize - 2 = TBTransmission s r
       | otherwise = TBLargeTransmission r
       where
         s = tEncode t