Make it build with ghc-9.10

Also bumps the plutus-ledger-api version.
IntersectMBO · Aug 8, 2024 · bc28706 · bc28706
1 parent afdd769
commit bc28706
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git a/cabal.project b/cabal.project
@@ -13,8 +13,8 @@ repository cardano-haskell-packages
 -- See CONTRIBUTING for information about these, including some Nix commands
 -- you need to run if you change them
 index-state:
-  , hackage.haskell.org 2024-06-23T23:01:13Z
-  , cardano-haskell-packages 2024-07-19T12:00:49Z
+  , hackage.haskell.org 2024-08-08T19:27:29Z
+  , cardano-haskell-packages 2024-08-08T07:19:00Z
 
 packages:
   cardano-cli

diff --git a/cardano-cli/cardano-cli.cabal b/cardano-cli/cardano-cli.cabal
@@ -21,7 +21,7 @@ extra-source-files: README.md
 common project-config
   default-language: Haskell2010
   default-extensions: OverloadedStrings
-  build-depends: base >=4.14 && <4.20
+  build-depends: base >=4.14 && <4.21
   ghc-options:
     -Wall
     -Wcompat

diff --git a/cardano-cli/src/Cardano/CLI/Run/Ping.hs b/cardano-cli/src/Cardano/CLI/Run/Ping.hs
@@ -21,7 +21,6 @@ import           Control.Monad.Class.MonadAsync (MonadAsync (async, wait, waitCa
 import           Control.Monad.Trans.Except (ExceptT)
 import           Control.Monad.Trans.Except.Extra (left)
 import           Control.Tracer (Tracer (..))
-import           Data.List (foldl')
 import qualified Data.List as L
 import qualified Data.List as List
 import           Network.Socket (AddrInfo)
@@ -91,7 +90,7 @@ runPingCmd options = do
   liftIO $ wait laid
 
   -- Collect errors 'es' from failed pings and 'addrs' from successful pings.
-  let (es, addrs) = foldl' partition ([], []) res
+  let (es, addrs) = L.foldl' partition ([], []) res
 
   -- Report any errors
   case (es, addrs) of