Update cardano-ledger and ouroboros-network dependencies

IntersectMBO · Jul 5, 2022 · 4e076d3 · 4e076d3
1 parent e8c795f
commit 4e076d3
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/Cardano/CLI/Shelley/Run/Genesis.hs b/src/Cardano/CLI/Shelley/Run/Genesis.hs
@@ -28,6 +28,8 @@ import qualified Data.ByteString.Lazy.Char8 as LBS
 import           Data.Coerce (coerce)
 import qualified Data.List as List
 import qualified Data.List.Split as List
+import           Data.ListMap (ListMap(ListMap))
+import qualified Data.ListMap as ListMap
 import qualified Data.Map.Strict as Map
 
 import qualified Data.Sequence.Strict as Seq
@@ -1012,18 +1014,18 @@ updateTemplate (SystemStart start)
           { sgSystemStart = start
           , sgMaxLovelaceSupply = fromIntegral $ nonDelegCoin + delegCoin
           , sgGenDelegs = shelleyDelKeys
-          , sgInitialFunds = Map.fromList
+          , sgInitialFunds = ListMap
                               [ (toShelleyAddr addr, toShelleyLovelace v)
                               | (addr, v) <-
                                 distribute (nonDelegCoin - subtractForTreasury) utxoAddrsNonDeleg ++
                                 distribute (delegCoin - subtractForTreasury)    utxoAddrsDeleg ++
                                 mkStuffedUtxo stuffedUtxoAddrs ]
           , sgStaking =
             ShelleyGenesisStaking
-              { sgsPools = Map.fromList
+              { sgsPools = ListMap
                             [ (Ledger._poolId poolParams, poolParams)
                             | poolParams <- Map.elems poolSpecs ]
-              , sgsStake = Ledger._poolId <$> poolSpecs
+              , sgsStake = ListMap.fromMap $ Ledger._poolId <$> poolSpecs
               }
           , sgProtocolParams = pparamsFromTemplate
           }