Update cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs

Co-authored-by: Mateusz Galazyn <[email protected]>
IntersectMBO · Mar 6, 2024 · b717fd6 · b717fd6
1 parent 38a1669
commit b717fd6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs b/cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs
@@ -513,7 +513,7 @@ buildPoolParams nw dir index specifiedRelays = do
       }
  where
    lookupPoolRelay :: Map Word [L.StakePoolRelay] -> Seq.StrictSeq L.StakePoolRelay
-   lookupPoolRelay m = maybe mempty Seq.fromList $ Map.lookup index m
+   lookupPoolRelay m = Seq.fromList $ Map.findWithDefault [] index m
    poolColdVKF = File $ dir </> "cold.vkey"
    poolVrfVKF = File $ dir </> "vrf.vkey"
    poolRewardVKF = File $ dir </> "staking-reward.vkey"