mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-27 10:45:14 +00:00
Evgeny
f3408d9bb6
* explicit exports * more empty exports * add exports * reorder * use correct ControlProtocol type for xftp router --------- Co-authored-by: Evgeny @ SimpleX Chat <259188159+evgeny-simplex@users.noreply.github.com>
50 lines
853 B
Haskell
50 lines
853 B
Haskell
module Simplex.FileTransfer.Chunks
|
|
( serverChunkSizes,
|
|
chunkSize0,
|
|
chunkSize1,
|
|
chunkSize2,
|
|
chunkSize3,
|
|
kb,
|
|
toKB,
|
|
mb,
|
|
gb,
|
|
) where
|
|
|
|
import Data.Word (Word32)
|
|
|
|
serverChunkSizes :: [Word32]
|
|
serverChunkSizes = [chunkSize0, chunkSize1, chunkSize2, chunkSize3]
|
|
{-# INLINE serverChunkSizes #-}
|
|
|
|
chunkSize0 :: Word32
|
|
chunkSize0 = kb 64
|
|
{-# INLINE chunkSize0 #-}
|
|
|
|
chunkSize1 :: Word32
|
|
chunkSize1 = kb 256
|
|
{-# INLINE chunkSize1 #-}
|
|
|
|
chunkSize2 :: Word32
|
|
chunkSize2 = mb 1
|
|
{-# INLINE chunkSize2 #-}
|
|
|
|
chunkSize3 :: Word32
|
|
chunkSize3 = mb 4
|
|
{-# INLINE chunkSize3 #-}
|
|
|
|
kb :: Integral a => a -> a
|
|
kb n = 1024 * n
|
|
{-# INLINE kb #-}
|
|
|
|
toKB :: Integral a => a -> a
|
|
toKB n = n `div` 1024
|
|
{-# INLINE toKB #-}
|
|
|
|
mb :: Integral a => a -> a
|
|
mb n = 1024 * kb n
|
|
{-# INLINE mb #-}
|
|
|
|
gb :: Integral a => a -> a
|
|
gb n = 1024 * mb n
|
|
{-# INLINE gb #-}
|