Return blockchain in newest -> oldest order instead of reversed (fix #…

…3165).
IntersectMBO · May 12, 2021 · 63a5d2e · 63a5d2e
1 parent f441263
commit 63a5d2e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/plutus-contract/src/Wallet/Emulator/Folds.hs b/plutus-contract/src/Wallet/Emulator/Folds.hs
@@ -269,7 +269,7 @@ blockchain =
             TxnValidationFail{} -> (currentBlock, otherBlocks)
         initial = ([], [])
         extract (currentBlock, otherBlocks) =
-            reverse (currentBlock : otherBlocks)
+            (currentBlock : otherBlocks)
     in preMapMaybe (preview (eteEvent . chainEvent))
         $ Fold step initial extract