consensus-test: add missing Haddock

Author: nfrisby

ouroboros-consensus/test/consensus-test/Test/Consensus/Mempool.hs

@@ -327,6 +327,7 @@ testLedgerConfig = SimpleLedgerConfig {
 
 data TestSetup = TestSetup
   { testLedgerState         :: LedgerState TestBlock
+    -- ^ The ledger state /before/ the txs in the mempool.
   , testInitialTxs          :: [TestTx]
     -- ^ These are all valid and will be the initial contents of the Mempool.
   , testMempoolMultOverride :: Maybe MempoolMultiplicityOverride
@@ -650,6 +651,9 @@ instance Arbitrary TestSetupWithTxInMempool where
     , tx' <- testInitialTxs testSetup'
     ]
 
+-- | A 'TestSetup' along with a subset of the transactions in the initial mempool
+--
+-- The subset is represented by a list with the same order as the mempool.
 data TestSetupWithTxsInMempool = TestSetupWithTxsInMempool TestSetup [TestTx]
   deriving (Show)