Qualify asum call to ensure it compiles in ghc8107

Qualify `asum` call to ensure it compiles in ghc8107
IntersectMBO · Oct 10, 2024 · 6131449 · 6131449
1 parent 69e3f81
commit 6131449
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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,15 +74,15 @@ 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."
     ]
 
 pPoolMetadataHashGoal :: Parser Cmd.StakePoolMetadataHashGoal
 pPoolMetadataHashGoal =
-  asum
+  F.asum
     [ Cmd.CheckStakePoolMetadataHash <$> pExpectedStakePoolMetadataHash
     , Cmd.StakePoolMetadataHashToFile <$> pOutputFile
     ]