Skip to content

Commit

Permalink
TOSQUASH remove leftover bounds check for Natural
Browse files Browse the repository at this point in the history
  • Loading branch information
nfrisby committed Aug 28, 2024
1 parent fe778a3 commit f15f603
Showing 1 changed file with 1 addition and 4 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ module Test.Consensus.Mempool (tests) where
import Cardano.Binary (Encoding, toCBOR)
import Cardano.Crypto.Hash
import Control.Exception (assert)
import Control.Monad (foldM, forM, forM_, void, when)
import Control.Monad (foldM, forM, forM_, void)
import Control.Monad.Except (Except, runExcept)
import Control.Monad.IOSim (runSimOrThrow)
import Control.Monad.State (State, evalState, get, modify)
Expand Down Expand Up @@ -845,9 +845,6 @@ instance Arbitrary MempoolCapTestSetup where
-- Note that we could pick @currentSize@, meaning that we can't add any
-- more transactions to the Mempool

when (unByteSize32 capacityMaxBound >= 2^(32 :: Int)) $ do
error "impossible!" -- could 'QC.discard' if this is actually feasible

capacity <- choose
( unByteSize32 capacityMinBound
, unByteSize32 capacityMaxBound
Expand Down

0 comments on commit f15f603

Please sign in to comment.