consensus: change extendVRNew argument order

IntersectMBO · Jul 22, 2021 · 4c6bc9b · 4c6bc9b
1 parent 6cef814
commit 4c6bc9b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/Impl/Pure.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/Impl/Pure.hs
@@ -156,7 +156,7 @@ pureTryAddTxs cfg txSize tx is
                (isMempoolSize is)
               )
     where
-      (eVtx, vr) = extendVRNew cfg tx txSize $ validationResultFromIS is
+      (eVtx, vr) = extendVRNew cfg txSize tx $ validationResultFromIS is
       is'        = internalStateFromVR vr
 
 -- | A datatype containing the state resulting after removing the requested

diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/Impl/Types.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Mempool/Impl/Types.hs
@@ -220,13 +220,13 @@ extendVRPrevApplied cfg txTicket vr =
 -- again.
 extendVRNew :: (LedgerSupportsMempool blk, HasTxId (GenTx blk))
             => LedgerConfig blk
-            -> GenTx blk
             -> (GenTx blk -> TxSizeInBytes)
+            -> GenTx blk
             -> ValidationResult (GenTx blk) blk
             -> ( Either (ApplyTxErr blk) (Validated (GenTx blk))
                , ValidationResult (GenTx blk) blk
                )
-extendVRNew cfg tx txSize vr = assert (isNothing vrNewValid) $
+extendVRNew cfg txSize tx vr = assert (isNothing vrNewValid) $
     case runExcept (applyTx cfg vrSlotNo tx vrAfter) of
       Left err         ->
         ( Left err