-- | Common values for size and time limits used by ourobors-network.
module Ouroboros.Network.Protocol.Limits where

import           Control.Monad.Class.MonadTime

-- TODO: better limits


largeByteLimit :: Word
largeByteLimit :: Word
largeByteLimit = Word
2500000

smallByteLimit :: Word
smallByteLimit :: Word
smallByteLimit = Word
0xffff

shortWait :: Maybe DiffTime
shortWait :: Maybe DiffTime
shortWait = DiffTime -> Maybe DiffTime
forall a. a -> Maybe a
Just DiffTime
10

longWait :: Maybe DiffTime
longWait :: Maybe DiffTime
longWait = DiffTime -> Maybe DiffTime
forall a. a -> Maybe a
Just DiffTime
60

waitForever :: Maybe DiffTime
waitForever :: Maybe DiffTime
waitForever = Maybe DiffTime
forall a. Maybe a
Nothing