TOSQUASH 2 spaces, not 1

IntersectMBO · Jan 14, 2021 · a8e8d09 · a8e8d09
1 parent 82c882a
commit a8e8d09
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/ouroboros-consensus-test/test-consensus/Test/Consensus/Mempool.hs b/ouroboros-consensus-test/test-consensus/Test/Consensus/Mempool.hs
@@ -234,14 +234,14 @@ prop_pure_invalidTxsNeverAdded setup@TestSetupWithTxs {..} =
   withInternalState testSetup $
   \mpArgs internalState _ledgerState ->
       let MempoolSnapshot { snapshotTxs = ta } = implSnapshotFromIS
-                                                  internalState
+                                                   internalState
           txsInMempoolBefore                   = map fst ta
           (_res, internalState')               = runTryAddTxs
-                                                  mpArgs
-                                                  internalState
-                                                  (allTxs setup)
+                                                   mpArgs
+                                                   internalState
+                                                   (allTxs setup)
           MempoolSnapshot { snapshotTxs = tb } = implSnapshotFromIS
-                                                  internalState'
+                                                   internalState'
           txsInMempoolAfter   = map fst tb
       in  counterexample (ppTxs txs) $ conjoin
         -- Check for each transaction in the mempool (ignoring those already