From 61314498fc0371d116cd6b9cdb6e9de45b510385 Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Thu, 10 Oct 2024 19:36:31 +0200 Subject: [PATCH] Qualify `asum` call to ensure it compiles in ghc8107 Qualify `asum` call to ensure it compiles in ghc8107 --- cardano-cli/src/Cardano/CLI/EraBased/Options/StakePool.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cardano-cli/src/Cardano/CLI/EraBased/Options/StakePool.hs b/cardano-cli/src/Cardano/CLI/EraBased/Options/StakePool.hs index 52602280d7..ae6ba5f713 100644 --- a/cardano-cli/src/Cardano/CLI/EraBased/Options/StakePool.hs +++ b/cardano-cli/src/Cardano/CLI/EraBased/Options/StakePool.hs @@ -21,6 +21,7 @@ import Cardano.CLI.EraBased.Options.Common import Cardano.CLI.Read (readSafeHash) import qualified Cardano.Crypto.Hash as L +import qualified Data.Foldable as F import Options.Applicative hiding (help, str) import qualified Options.Applicative as Opt @@ -73,7 +74,7 @@ pStakePoolMetadataHashCmd = pPoolMetadataSource :: Parser Cmd.StakePoolMetadataSource pPoolMetadataSource = - asum + F.asum [ Cmd.StakePoolMetadataFileIn <$> pPoolMetadataFile , Cmd.StakePoolMetadataURL <$> pUrl "pool-metadata-url" "URL pointing to the JSON Metadata file to hash." @@ -81,7 +82,7 @@ pPoolMetadataSource = pPoolMetadataHashGoal :: Parser Cmd.StakePoolMetadataHashGoal pPoolMetadataHashGoal = - asum + F.asum [ Cmd.CheckStakePoolMetadataHash <$> pExpectedStakePoolMetadataHash , Cmd.StakePoolMetadataHashToFile <$> pOutputFile ]