Merge pull request #855 from IntersectMBO/erikd/ghc-9.10

Make it build with ghc 9.10

.github/workflows/haskell.yml

@@ -20,7 +20,7 @@ jobs:
     strategy:
       fail-fast: false
       matrix:
-        ghc: ["9.6", "9.8"]
+        ghc: ["9.6", "9.8", "9.10"]
         cabal: ["3.12"]
         sys:
           - { os: windows-latest, shell: 'C:/msys64/usr/bin/bash.exe -e {0}' }

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

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

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