Fix the order in which scripts from AuxData are serialized

IntersectMBO · Nov 29, 2022 · 9506b3d · 9506b3d
1 parent b265d7f
commit 9506b3d
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs b/eras/alonzo/impl/src/Cardano/Ledger/Alonzo/Data.hs
@@ -287,11 +287,11 @@ instance
       getTimelock _ = Nothing
       getPlutus (PlutusScript _ x) = Just x
       getPlutus _ = Nothing
-      sortScripts (ts, v1, v2) s@(TimelockScript _) = (s : ts, v1, v2)
-      sortScripts (ts, v1, v2) s@(PlutusScript PlutusV1 _) = (ts, s : v1, v2)
-      sortScripts (ts, v1, v2) s@(PlutusScript PlutusV2 _) = (ts, v1, s : v2)
+      sortScripts s@(TimelockScript _) (ts, v1, v2) = (s : ts, v1, v2)
+      sortScripts s@(PlutusScript PlutusV1 _) (ts, v1, v2) = (ts, s : v1, v2)
+      sortScripts s@(PlutusScript PlutusV2 _) (ts, v1, v2) = (ts, v1, s : v2)
       (timelocks, plutusV1Scripts, plutusV2Scripts) =
-        foldl' sortScripts (mempty, mempty, mempty) allScripts
+        foldr sortScripts (mempty, mempty, mempty) allScripts
 
 instance
   ( Era era,