From be147d952b3d137305cfe80863ab349d18e4ccfd Mon Sep 17 00:00:00 2001 From: Armando Santos Date: Fri, 14 May 2021 13:49:40 +0100 Subject: [PATCH] Fixed ouroboros-network:test haddocks --- ouroboros-network/test/Test/Ouroboros/Network/TxSubmission.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ouroboros-network/test/Test/Ouroboros/Network/TxSubmission.hs b/ouroboros-network/test/Test/Ouroboros/Network/TxSubmission.hs index acb61b15764..1adb466ae72 100644 --- a/ouroboros-network/test/Test/Ouroboros/Network/TxSubmission.hs +++ b/ouroboros-network/test/Test/Ouroboros/Network/TxSubmission.hs @@ -269,10 +269,10 @@ instance Arbitrary a => Arbitrary (LargeNonEmptyList a) where prop_txSubmission :: Positive Word16 -> NonEmptyList (Tx Int) - -- | The delay must be smaller (<) than 5s, so that overall + -> Maybe (Positive SmallDelay) + -- ^ The delay must be smaller (<) than 5s, so that overall -- delay is less than 10s, otherwise 'smallDelay' in -- 'timeLimitsTxSubmission' will kick in. - -> Maybe (Positive SmallDelay) -> Property prop_txSubmission (Positive maxUnacked) (NonEmpty outboundTxs) delay = let mbDelayTime = getSmallDelay . getPositive <$> delay