Remove comments

ouroboros-consensus-test/src/Test/Util/ChainDB.hs

@@ -36,8 +36,6 @@ import           Ouroboros.Consensus.Block.Abstract
 import           Test.Util.FS.Sim.MockFS
 
 
--- TODO: This already exists in the ThreadNet tests
-
 -- | A vector with an element for each database of a node
 --
 -- The @db@ type parameter is instantiated by this module at types for mock
@@ -46,7 +44,7 @@ data NodeDBs db = NodeDBs
   { nodeDBsImm :: db
   , nodeDBsVol :: db
   , nodeDBsLgr :: db
-  }
+  } deriving (Functor, Applicative, Monad)
 
 
 emptyNodeDBs :: MonadSTM m => m (NodeDBs (StrictTVar m MockFS))
@@ -100,9 +98,3 @@ mkTestChainDbArgs cfg chunkInfo initLedger registry nodeDBs tracer traceLedger =
   , cdbGcInterval = 1
   , cdbBlocksToAddSize = 1
   }
-
-
--- There are a number of fields that deal with validation of blocks:
--- cdbCheckIntegrity
--- cdbVolatileDbValidation
--- cdbImmutableDbValidation