Use OMap stored order

IntersectMBO · Feb 17, 2025 · 1c89380 · 1c89380
1 parent 9e26321
commit 1c89380
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -249,7 +249,6 @@ library
     network,
     network-uri,
     optparse-applicative-fork,
-    ordered-containers,
     parsec,
     prettyprinter,
     prettyprinter-ansi-terminal,

diff --git a/cardano-cli/src/Cardano/CLI/Compatible/Transaction.hs b/cardano-cli/src/Cardano/CLI/Compatible/Transaction.hs
@@ -37,12 +37,12 @@ import           Cardano.CLI.Types.Governance
 import           Cardano.CLI.Types.TxFeature
 
 import           Data.Bifunctor (first)
-import           Data.Foldable
+import           Data.Foldable hiding (toList)
 import           Data.Function
-import qualified Data.Map.Ordered as OMap
 import qualified Data.Map.Strict as Map
 import           Data.Maybe
 import           Data.Text (Text)
+import           GHC.Exts (toList)
 import           Options.Applicative
 import qualified Options.Applicative as Opt
 
@@ -296,7 +296,7 @@ runCompatibleTransactionCmd
         proposalsRefInputs =
           [ refInput
           | ProposalProcedures _ (TxProposalProcedures proposalMap) <- [protocolUpdates]
-          , BuildTxWith (Just sWit) <- map snd $ OMap.toAscList proposalMap
+          , BuildTxWith (Just sWit) <- map snd $ toList proposalMap
           , refInput <- maybeToList $ getScriptWitnessReferenceInput sWit
           ]