TOSQUASH avoid overly long line

IntersectMBO · Jan 14, 2021 · 7828dfd · 7828dfd
1 parent 2a9929d
commit 7828dfd
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/ImplPure.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/ImplPure.hs
@@ -532,7 +532,13 @@ extendVRPrevApplied cfg txTicket vr =
                       }
   where
     TxTicket { txTicketTx = tx } = txTicket
-    ValidationResult { vrValid, vrSlotNo, vrValidTxIds, vrAfter, vrInvalid } = vr
+    ValidationResult {
+        vrValid
+      , vrSlotNo
+      , vrValidTxIds
+      , vrAfter
+      , vrInvalid
+      } = vr
 
 -- | Extend 'ValidationResult' with a new transaction (one which we have not
 -- previously validated) that may or may not be valid in this ledger state.