app: integration

Author: crocodile-dentist

dmq-node/app/Main.hs

@@ -102,7 +102,8 @@ runDMQ commandLineConfig = do
                 let sigSize _ = 0 -- TODO
                     maxMsgs = 1000 -- TODO: make this negotiated in the handshake?
                     mempoolReader = Mempool.getReader sigId sigSize (mempool nodeKernel)
-                    mempoolWriter = Mempool.getWriter sigId (const ()) (\_ _ -> pure True) (mempool nodeKernel)
+                    StakePools { poolValidationCtx } = stakePools nodeKernel
+                    mempoolWriter = Mempool.getWriter sigId poolValidationCtx (\_ _ -> pure True) (mempool nodeKernel)
                  in NtC.ntcApps mempoolReader mempoolWriter maxMsgs
                                 (NtC.dmqCodecs encodeReject decodeReject)
               dmqDiffusionArguments =