mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-10-24 04:12:40 +00:00
remove fromIntegral
This commit is contained in:
1 parent
72f33c6c2d
commit
b248f28efc
1 file changed
+1
-1
@@ -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
|
||||
|
||||
Reference in new issue
Block a user