network-transport-tests 0.3.3 → 0.3.4

raw patch · 4 files changed

+10/−7 lines, 4 files

Files

• ChangeLog +4/−0
• network-transport-tests.cabal +4/−3
• src/Network/Transport/Tests.hs +2/−3
• src/Network/Transport/Tests/Traced.hs +0/−1

@@ -1,3 +1,7 @@+2025-02-04 Laurent P. René de Cotret <laurent.decotret@outlook.com> 0.3.4++* Addressed some compilation warnings (#467)+ 2024-09-03 Laurent P. René de Cotret <laurent.decotret@outlook.com> 0.3.3  * Bumped dependency bounds to support GHC 8.10.7 - GHC 9.10.1

@@ -1,6 +1,6 @@ cabal-version:       3.0 name:                network-transport-tests-version:             0.3.3+version:             0.3.4 synopsis:            Unit tests for Network.Transport implementations description:         Unit tests for Network-Transport implementations. homepage:            http://haskell-distributed.github.com@@ -27,6 +27,7 @@                  -Wredundant-constraints                  -fhide-source-paths                  -Wpartial-fields+                 -Wunused-packages  library   import:              warnings@@ -37,9 +38,9 @@   -- other-modules:   build-depends:       base >= 4.14 && < 5,                        network-transport >= 0.4.1.0 && < 0.6,-                       containers >= 0.6 && < 0.7,+                       containers >= 0.6 && < 0.8,                        bytestring >= 0.10 && < 0.13,-                       random >= 1.0 && < 1.3,+                       random >= 1.0 && < 1.4,                        mtl >= 2.2.1 && < 2.4,                        ansi-terminal >= 0.5   hs-source-dirs:      src

@@ -20,7 +20,6 @@   ) import Control.Monad (replicateM, replicateM_, when, guard, forM_, unless) import Control.Monad.Except ()-import Control.Applicative ((<$>)) import Network.Transport import Network.Transport.Internal (tlog, tryIO, timeoutMaybe) import Network.Transport.Util (spawn)@@ -652,7 +651,7 @@      -- First test (see client)     do-      theirAddr <- readMVar clientAddr1+      _theirAddr <- readMVar clientAddr1       ConnectionOpened cid ReliableOrdered addr <- receive endpoint       -- Ensure that connecting to the supplied address reaches the peer.       Right conn <- connect endpoint addr ReliableOrdered defaultConnectHints@@ -716,7 +715,7 @@       send conn ["ping"]        -- Reply from the server-      ConnectionOpened cid ReliableOrdered addr <- receive endpoint+      ConnectionOpened cid ReliableOrdered _addr <- receive endpoint       Received cid' ["pong"] <- receive endpoint ; True <- return $ cid == cid'        -- Close the endpoint

@@ -60,7 +60,6 @@   ) import qualified Prelude import Control.Exception (catches, Handler(..), SomeException, throwIO, Exception(..), IOException)-import Control.Applicative ((<$>)) import Data.Typeable (Typeable) import Data.Maybe (catMaybes) import Data.ByteString (ByteString)