Avoid ApplicativeDo

IntersectMBO · Nov 1, 2023 · 4612740 · 4612740
1 parent 46b5e49
commit 4612740
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/Governance/Actions.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE ApplicativeDo #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE LambdaCase #-}
@@ -214,9 +213,9 @@ pCostModelsFile :: ShelleyBasedEra era -> Parser (Maybe (Cmd.CostModelsFile era)
 pCostModelsFile =
   caseShelleyToMaryOrAlonzoEraOnwards
     (const $ pure Nothing)
-    ( \alonzoOnwards -> do
-         file <- optional $ pCostModels (Just "new")
-         pure $ Cmd.CostModelsFile alonzoOnwards . File <$> file
+    ( \alonzoOnwards ->
+         fmap (Cmd.CostModelsFile alonzoOnwards . File)
+           <$> optional (pCostModels (Just "new"))
     )
 
 pGovernanceActionProtocolParametersUpdateCmd :: ()