tx-submission: compile with ghc < 9.10

Author: coot

ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/TxSubmission/TxLogic.hs

@@ -1,5 +1,6 @@
 {-# LANGUAGE BangPatterns        #-}
 {-# LANGUAGE BlockArguments      #-}
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE DeriveGeneric       #-}
 {-# LANGUAGE FlexibleContexts    #-}
 {-# LANGUAGE FlexibleInstances   #-}
@@ -18,7 +19,12 @@ import Prelude hiding (seq)
 
 import Control.Exception (assert)
 
-import Data.Foldable as Foldable (fold, foldl', toList)
+import Data.Foldable (
+         fold,
+#if !MIN_VERSION_base(4,20,0)
+         foldl',
+#endif
+         toList)
 import Data.List (intercalate, isPrefixOf, isSuffixOf, mapAccumR, nub,
            stripPrefix)
 import Data.Map.Merge.Strict qualified as Map

ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound/Registry.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                 #-}
 {-# LANGUAGE BangPatterns        #-}
 {-# LANGUAGE BlockArguments      #-}
 {-# LANGUAGE LambdaCase          #-}
@@ -21,7 +22,11 @@ import Control.Monad.Class.MonadFork
 import Control.Monad.Class.MonadThrow
 import Control.Monad.Class.MonadTimer.SI
 
-import Data.Foldable (foldl', traverse_)
+import Data.Foldable (traverse_
+#if !MIN_VERSION_base(4,20,0)
+                     , foldl'
+#endif
+                     )
 import Data.Map.Strict (Map)
 import Data.Map.Strict qualified as Map
 import Data.Maybe (fromMaybe)

scripts/ci/check-stylish-ignore

@@ -1,7 +1,11 @@
 */Setup.hs
 ouroboros-network-api/src/Ouroboros/Network/Protocol/Type.hs
 ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound/State.hs
+ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/TxLogic.hs
 ouroboros-network/src/Ouroboros/Network/PeerSelection/Governor/Types.hs
+ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound/Registry.hs
+ouroboros-network/src/Ouroboros/Network/TxSubmission/Inbound/State.hs
+ouroboros-network/sim-tests-lib/Test/Ouroboros/Network/TxSubmission/TxLogic.hs
 network-mux/src/Network/Mux/TCPInfo.hs
 network-mux/src/Network/Mux/Bearer.hs
 network-mux/src/Network/Mux/Bearer/Pipe.hs