Detail: adapt to cardano-api release

IntersectMBO · Oct 2, 2023 · a9ff874 · a9ff874
1 parent bd7962f
commit a9ff874
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Poll.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Poll.hs
@@ -44,7 +44,7 @@ pGovernancePollCmds era =
 
 pGovernanceCreatePoll :: CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
 pGovernanceCreatePoll era = do
-  w <- forEonInEra era
+  w <- forEraMaybeEon era
   when ("BabbageEraOnwardsConway" `isInfixOf` show w) Nothing -- TODO smelc remove this when BabbageEraBabbageOnly is introduced
   pure $
     GovernanceCreatePoll w
@@ -55,7 +55,7 @@ pGovernanceCreatePoll era = do
 
 pGovernanceAnswerPoll :: CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
 pGovernanceAnswerPoll era = do
-  w <- maybeEonInEra era
+  w <- forEraMaybeEon era
   when ("BabbageEraOnwardsConway" `isInfixOf` show w) Nothing -- TODO smelc remove this when BabbageEraBabbageOnly is introduced
   pure $
     GovernanceAnswerPoll w
@@ -65,7 +65,7 @@ pGovernanceAnswerPoll era = do
 
 pGovernanceVerifyPoll :: CardanoEra era -> Maybe (Parser (GovernancePollCmds era))
 pGovernanceVerifyPoll era = do
-  w <- maybeEonInEra era
+  w <- forEraMaybeEon era
   when ("BabbageEraOnwardsConway" `isInfixOf` show w) Nothing -- TODO smelc remove this when BabbageEraBabbageOnly is introduced
   pure $
     GovernanceVerifyPoll w