TOSQUASH repeated binops as line separators at start of each line

IntersectMBO · Jan 14, 2021 · 1412ba7 · 1412ba7
1 parent 1989892
commit 1412ba7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/ouroboros-consensus-test/test-consensus/Test/Consensus/Mempool.hs b/ouroboros-consensus-test/test-consensus/Test/Consensus/Mempool.hs
@@ -643,10 +643,10 @@ ppTestSetup :: TestSetup -> String
 ppTestSetup TestSetup { testInitialTxs
                       , testMempoolCapOverride
                       } = unlines $
-    ["Initial contents of the Mempool:"]  <>
-    map ppTestTxWithHash testInitialTxs <>
-    ["Mempool capacity override:"]        <>
-    [show testMempoolCapOverride]
+       ["Initial contents of the Mempool:"]
+    <> map ppTestTxWithHash testInitialTxs
+    <> ["Mempool capacity override:"]
+    <> [show testMempoolCapOverride]
 
 ppTestTxWithHash :: TestTx -> String
 ppTestTxWithHash x = condense