squash! Support ntc23

Author: geo2a

ouroboros-consensus-diffusion/src/ouroboros-consensus-diffusion/Ouroboros/Consensus/NodeKernel.hs

@@ -926,16 +926,21 @@ getMempoolWriter mempool =
   Inbound.TxSubmissionMempoolWriter
     { Inbound.txId = txId
     , mempoolAddTxs = \txs ->
-          bimap (map (\case
-                    MempoolTxAdded tx -> txId (txForgetValidated tx)
-                    MempoolTxRejected {} -> error "impossible happened"
-                ))
-                (map (\case
-                    MempoolTxRejected tx _reason -> (txId tx, ())
-                    MempoolTxAdded {} -> error "impossible happened"
-                ))
-        . List.partition isMempoolTxAdded
-      <$> addTxs mempool txs
+        bimap
+          ( map
+              ( \case
+                  MempoolTxAdded tx -> txId (txForgetValidated tx)
+                  MempoolTxRejected{} -> error "impossible happened"
+              )
+          )
+          ( map
+              ( \case
+                  MempoolTxRejected tx _reason -> (txId tx, ())
+                  MempoolTxAdded{} -> error "impossible happened"
+              )
+          )
+          . List.partition isMempoolTxAdded
+          <$> addTxs mempool txs
     }
 
 {-------------------------------------------------------------------------------