[all reports]
Package |
network-transport-tcp-0.8.6 |
Install |
InstallOk |
Docs |
Ok |
Tests |
Ok |
Time submitted |
2025-02-05 04:29:32.519733105 UTC
|
Compiler |
ghc-9.6.3 |
OS |
linux |
Arch |
x86_64 |
Dependencies |
async-2.2.5, base-4.18.1.0, bytestring-0.12.2.0, containers-0.6.7, data-accessor-0.2.3.1, network-3.2.7.0, network-transport-0.5.9, uuid-1.3.16 |
Flags |
-use-mock-network
|
Code Coverage
expressions | 77% (2506/3234) |
boolean | guards | 100% (0/0) |
conditions | 77% (17/22) |
qualifiers | 100% (0/0) |
alternatives | 66% (173/261) |
local declarations | 84% (86/102) |
top-level declarations | 83% (104/124) |
Build log
[view raw]
Resolving dependencies...
Starting network-info-0.2.1
Starting data-accessor-0.2.3.1
Starting bytestring-0.12.2.0
Starting splitmix-0.1.1
Building network-info-0.2.1
Building data-accessor-0.2.3.1
Building bytestring-0.12.2.0
Building splitmix-0.1.1
Completed network-info-0.2.1
Completed splitmix-0.1.1
Completed data-accessor-0.2.3.1
Completed bytestring-0.12.2.0
Starting random-1.2.1.3
Starting os-string-2.0.7
Starting cryptohash-sha1-0.11.101.0
Starting cryptohash-md5-0.11.101.0
Starting binary-0.8.9.3
Building os-string-2.0.7
Building random-1.2.1.3
Building cryptohash-md5-0.11.101.0
Building cryptohash-sha1-0.11.101.0
Building binary-0.8.9.3
Completed cryptohash-md5-0.11.101.0
Completed cryptohash-sha1-0.11.101.0
Completed os-string-2.0.7
Starting filepath-1.5.4.0
Building filepath-1.5.4.0
Completed binary-0.8.9.3
Starting text-2.1.2
Building text-2.1.2
Completed random-1.2.1.3
Completed filepath-1.5.4.0
Starting unix-2.8.6.0
Building unix-2.8.6.0
Completed unix-2.8.6.0
Starting entropy-0.4.1.11
Starting file-io-0.1.5
Building file-io-0.1.5
Building entropy-0.4.1.11
Completed file-io-0.1.5
Starting directory-1.3.9.0
Building directory-1.3.9.0
Completed text-2.1.2
Starting hashable-1.5.0.0
Building hashable-1.5.0.0
Completed entropy-0.4.1.11
Completed directory-1.3.9.0
Starting network-3.2.7.0
Completed hashable-1.5.0.0
Downloading network-transport-0.5.9
Starting uuid-types-1.0.6
Starting async-2.2.5
Downloaded network-transport-0.5.9
Starting network-transport-0.5.9
Building uuid-types-1.0.6
Building async-2.2.5
Building network-transport-0.5.9
Building network-3.2.7.0
Completed async-2.2.5
Completed network-transport-0.5.9
Completed uuid-types-1.0.6
Starting uuid-1.3.16
Building uuid-1.3.16
Completed network-3.2.7.0
Completed uuid-1.3.16
Downloading network-transport-tcp-0.8.6
Downloaded network-transport-tcp-0.8.6
Starting network-transport-tcp-0.8.6
Building network-transport-tcp-0.8.6
Completed network-transport-tcp-0.8.6
Test log
[view raw]
Resolving dependencies...
Build profile: -w ghc-9.6.3 -O0
In order, the following will be built (use -v for more details):
- async-2.2.5 (lib:async) (requires build)
- cryptohash-md5-0.11.101.0 (lib:cryptohash-md5) (requires build)
- cryptohash-sha1-0.11.101.0 (lib:cryptohash-sha1) (requires build)
- entropy-0.4.1.11 (lib:entropy) (requires build)
- network-3.2.7.0 (lib:network) (requires build)
- network-transport-0.5.9 (lib:network-transport) (requires build)
- uuid-types-1.0.6 (lib:uuid-types) (requires build)
- network-transport-tests-0.3.4 (lib:network-transport-tests) (requires download & build)
- uuid-1.3.16 (lib:uuid) (requires build)
- network-transport-tcp-0.8.6 (first run)
Downloading network-transport-tests-0.3.4
Starting async-2.2.5 (all, legacy fallback)
Starting cryptohash-md5-0.11.101.0 (all, legacy fallback)
Starting cryptohash-sha1-0.11.101.0 (all, legacy fallback)
Starting network-transport-0.5.9 (all, legacy fallback)
Starting uuid-types-1.0.6 (all, legacy fallback)
Starting entropy-0.4.1.11 (all, legacy fallback)
Starting network-3.2.7.0 (all, legacy fallback)
Downloaded network-transport-tests-0.3.4
Building cryptohash-md5-0.11.101.0 (all, legacy fallback)
Building cryptohash-sha1-0.11.101.0 (all, legacy fallback)
Building network-transport-0.5.9 (all, legacy fallback)
Building uuid-types-1.0.6 (all, legacy fallback)
Building async-2.2.5 (all, legacy fallback)
Building network-3.2.7.0 (all, legacy fallback)
Installing cryptohash-md5-0.11.101.0 (all, legacy fallback)
Installing cryptohash-sha1-0.11.101.0 (all, legacy fallback)
Installing async-2.2.5 (all, legacy fallback)
Installing uuid-types-1.0.6 (all, legacy fallback)
Installing network-transport-0.5.9 (all, legacy fallback)
Completed cryptohash-md5-0.11.101.0 (all, legacy fallback)
Building entropy-0.4.1.11 (all, legacy fallback)
Completed cryptohash-sha1-0.11.101.0 (all, legacy fallback)
Installing network-3.2.7.0 (all, legacy fallback)
Completed async-2.2.5 (all, legacy fallback)
Completed uuid-types-1.0.6 (all, legacy fallback)
Installing entropy-0.4.1.11 (all, legacy fallback)
Completed network-transport-0.5.9 (all, legacy fallback)
Starting network-transport-tests-0.3.4 (all, legacy fallback)
Completed network-3.2.7.0 (all, legacy fallback)
Building network-transport-tests-0.3.4 (all, legacy fallback)
Installing network-transport-tests-0.3.4 (all, legacy fallback)
Completed entropy-0.4.1.11 (all, legacy fallback)
Starting uuid-1.3.16 (all, legacy fallback)
Completed network-transport-tests-0.3.4 (all, legacy fallback)
Building uuid-1.3.16 (all, legacy fallback)
Installing uuid-1.3.16 (all, legacy fallback)
Completed uuid-1.3.16 (all, legacy fallback)
Configuring network-transport-tcp-0.8.6...
Preprocessing library for network-transport-tcp-0.8.6..
Building library for network-transport-tcp-0.8.6..
[1 of 2] Compiling Network.Transport.TCP.Internal
src/Network/Transport/TCP/Internal.hs:228:21: warning: [GHC-63397] [-Wname-shadowing]
This binding for sock shadows the existing binding
bound at src/Network/Transport/TCP/Internal.hs:221:38
|
228 | release ((sock, _), socketClosed) =
| ^^^^
src/Network/Transport/TCP/Internal.hs:232:24: warning: [GHC-63397] [-Wname-shadowing]
This binding for sock shadows the existing binding
bound at src/Network/Transport/TCP/Internal.hs:221:38
|
232 | let act restore (sock, sockAddr) = do
| ^^^^
src/Network/Transport/TCP/Internal.hs:247:14: warning: [GHC-63397] [-Wname-shadowing]
This binding for sock shadows the existing binding
bound at src/Network/Transport/TCP/Internal.hs:221:38
|
247 | (sock, sockAddr) <- N.accept sock
| ^^^^
[2 of 2] Compiling Network.Transport.TCP
src/Network/Transport/TCP.hs:1021:32: warning: [GHC-63397] [-Wname-shadowing]
This binding for sock shadows the existing binding
bound at src/Network/Transport/TCP.hs:977:49
|
1021 | handleConnectionRequestV0 (sock, sockAddr) = do
| ^^^^
src/Network/Transport/TCP.hs:1021:38: warning: [GHC-63397] [-Wname-shadowing]
This binding for sockAddr shadows the existing binding
bound at src/Network/Transport/TCP.hs:977:55
|
1021 | handleConnectionRequestV0 (sock, sockAddr) = do
| ^^^^^^^^
src/Network/Transport/TCP.hs:1345:17: warning: [GHC-63397] [-Wname-shadowing]
This binding for act shadows the existing binding
bound at src/Network/Transport/TCP.hs:1176:5
|
1345 | act <- schedule theirEndPoint $ do
| ^^^
src/Network/Transport/TCP.hs:1376:17: warning: [GHC-63397] [-Wname-shadowing]
This binding for act shadows the existing binding
bound at src/Network/Transport/TCP.hs:1176:5
|
1376 | act <- schedule theirEndPoint $ return ()
| ^^^
src/Network/Transport/TCP.hs:1449:21: warning: [GHC-63397] [-Wname-shadowing]
This binding for err shadows the existing binding
bound at src/Network/Transport/TCP.hs:1416:19
|
1449 | err = TransportError code (show err')
| ^^^
Preprocessing test suite 'TestTCP' for network-transport-tcp-0.8.6..
Building test suite 'TestTCP' for network-transport-tcp-0.8.6..
[1 of 1] Compiling Main
tests/TestTCP.hs:115:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry $ server serverAddr clientAddr serverDone
|
115 | forkTry $ server serverAddr clientAddr serverDone
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:116:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry $ client serverAddr clientAddr
|
116 | forkTry $ client serverAddr clientAddr
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:172:79: warning: [-Wunused-matches]
Defined but not used: socketFree
|
172 | (clientPort, _) <- forkServer "127.0.0.1" "0" 5 True throwIO throwIO $ \socketFree (sock, _) -> do
| ^^^^^^^^^^
tests/TestTCP.hs:220:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry $ server serverAddr clientAddr serverDone
|
220 | forkTry $ server serverAddr clientAddr serverDone
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:221:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry $ client serverAddr clientAddr
|
221 | forkTry $ client serverAddr clientAddr
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:284:79: warning: [-Wunused-matches]
Defined but not used: socketFree
|
284 | (clientPort, _) <- forkServer "127.0.0.1" "0" 5 True throwIO throwIO $ \socketFree (sock, _) -> do
| ^^^^^^^^^^
tests/TestTCP.hs:376:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do tlog "Server"
Right endpoint <- newEndPoint transport
....
|
376 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:381:9: warning: [-Wunused-local-binds]
Defined but not used: ourAddress
|
381 | let ourAddress = address endpoint
| ^^^^^^^^^^
tests/TestTCP.hs:402:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do tlog "Client"
Right endpoint <- newEndPoint transport
....
|
402 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:466:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do tlog "Server"
Right endpoint <- newEndPoint transport
....
|
466 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:471:9: warning: [-Wunused-local-binds]
Defined but not used: ourAddress
|
471 | let ourAddress = address endpoint
| ^^^^^^^^^^
tests/TestTCP.hs:483:11: warning: [-Wunused-matches]
Defined but not used: conn
|
483 | Right conn <- connect endpoint theirAddress ReliableOrdered defaultConnectHints
| ^^^^
tests/TestTCP.hs:483:11: warning: [GHC-63397] [-Wname-shadowing]
This binding for conn shadows the existing binding
bound at tests/TestTCP.hs:478:11
|
483 | Right conn <- connect endpoint theirAddress ReliableOrdered defaultConnectHints
| ^^^^
tests/TestTCP.hs:488:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do tlog "Client"
Right endpoint <- newEndPoint transport
....
|
488 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:517:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do recvWord32 sock
readMVar unblocked >>= guard
....
|
517 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:518:7: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Word.Word32
Suggested fix:
Suppress this warning by saying _ <- recvWord32 sock
|
518 | recvWord32 sock
| ^^^^^^^^^^^^^^^
tests/TestTCP.hs:542:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right transport <- createTransport
(defaultTCPAddr "127.0.0.1" "0") defaultTCPParameters
Right endpoint <- newEndPoint transport
....
|
542 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:552:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do let ...
gotAccepted <- newEmptyMVar
....
|
552 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:560:7: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do response <- readMVar serverAddr >>= \ addr -> ...
case response of
Right (_, _, ConnectionRequestAccepted) -> ...
Right (_, sock, ConnectionRequestInvalid) -> ...
Right (_, sock, ConnectionRequestCrossed) -> ...
Left _ -> ...
....
|
560 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:564:9: warning: [GHC-62161] [-Wincomplete-patterns]
Pattern match(es) are non-exhaustive
In a case alternative:
Patterns of type Either
(TransportError ConnectErrorCode)
(MVar (), N.Socket, ConnectionRequestResponse) not matched:
Right (_, _, ConnectionRequestUnsupportedVersion)
Right (_, _, ConnectionRequestHostMismatch)
|
564 | case response of
| ^^^^^^^^^^^^^^^^...
tests/TestTCP.hs:611:7: warning: [GHC-62161] [-Wincomplete-uni-patterns]
Pattern match(es) are non-exhaustive
In a pattern binding:
Patterns of type Maybe GHC.Conc.Sync.ThreadId not matched:
Nothing
|
611 | let Just tid = transportThread internals
| ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:684:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right transport <- createTransport
(defaultTCPAddr "127.0.0.1" "0") defaultTCPParameters
Right endpoint <- newEndPoint transport
....
|
684 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:706:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for resultConnect shadows the existing binding
bound at tests/TestTCP.hs:693:5
|
706 | resultConnect <- connect endpoint theirAddr ReliableOrdered defaultConnectHints
| ^^^^^^^^^^^^^
tests/TestTCP.hs:708:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for wait shadows the existing binding
bound at tests/TestTCP.hs:698:20
|
708 | WaitSocketFree wait <- takeMVar socketClosed
| ^^^^
tests/TestTCP.hs:727:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for resultConnect shadows the existing binding
bound at tests/TestTCP.hs:706:5
|
727 | resultConnect <- connect endpoint theirAddr ReliableOrdered defaultConnectHints
| ^^^^^^^^^^^^^
tests/TestTCP.hs:729:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for wait shadows the existing binding
bound at tests/TestTCP.hs:708:20
|
729 | WaitSocketFree wait <- takeMVar socketClosed
| ^^^^
tests/TestTCP.hs:748:20: warning: [GHC-63397] [-Wname-shadowing]
This binding for wait shadows the existing binding
bound at tests/TestTCP.hs:729:20
|
748 | WaitSocketFree wait <- takeMVar socketClosed
| ^^^^
tests/TestTCP.hs:764:75: warning: [-Wunused-matches]
Defined but not used: socketFree
|
764 | (serverPort, _) <- forkServer "127.0.0.1" "0" 5 True throwIO throwIO $ \socketFree (sock, _) -> do
| ^^^^^^^^^^
tests/TestTCP.hs:788:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right (transport, internals) <- createTransportExposeInternals
(defaultTCPAddr "127.0.0.1" "0")
defaultTCPParameters
Right endpoint <- newEndPoint transport
....
|
788 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:795:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
Either (TransportError SendErrorCode) ()
Suggested fix:
Suppress this warning by saying _ <- send conn1 ["ping"]
|
795 | send conn1 ["ping"]
| ^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:811:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
Either (TransportError SendErrorCode) ()
Suggested fix:
Suppress this warning by saying _ <- send conn2 ["ping"]
|
811 | send conn2 ["ping"]
| ^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:823:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
Either (TransportError SendErrorCode) ()
Suggested fix:
Suppress this warning by saying _ <- send conn3 ["ping"]
|
823 | send conn3 ["ping"]
| ^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:835:5: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
Either (TransportError SendErrorCode) ()
Suggested fix:
Suppress this warning by saying _ <- send conn4 ["ping"]
|
835 | send conn4 ["ping"]
| ^^^^^^^^^^^^^^^^^^^
tests/TestTCP.hs:850:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right endpoint <- newEndPoint transport
putMVar serverAddr (address endpoint)
....
|
850 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:863:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right endpoint <- newEndPoint transport
let ...
....
|
863 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:885:4: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right transport1 <- createTransport
(defaultTCPAddr "127.0.0.1" "0") defaultTCPParameters
Right ep1 <- newEndPoint transport1
....
|
885 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:891:12: warning: [-Wunused-matches]
Defined but not used: conn1
|
891 | Right conn1 <- connect ep2 (address ep1) ReliableOrdered defaultConnectHints
| ^^^^^
tests/TestTCP.hs:919:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right serverEp <- newEndPoint serverTransport
putMVar serverAddress (address serverEp)
....
|
919 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:930:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right badClientEp <- newEndPoint badClientTransport
address <- readMVar serverAddress
....
|
930 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:932:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for address shadows the existing binding
imported from Network.Transport at tests/TestTCP.hs:13:1-24
|
932 | address <- readMVar serverAddress
| ^^^^^^^
tests/TestTCP.hs:941:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right goodClientEp <- newEndPoint goodClientTransport
address <- readMVar serverAddress
....
|
941 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:943:5: warning: [GHC-63397] [-Wname-shadowing]
This binding for address shadows the existing binding
imported from Network.Transport at tests/TestTCP.hs:13:1-24
|
943 | address <- readMVar serverAddress
| ^^^^^^^
tests/TestTCP.hs:973:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Right transport <- createTransport
(defaultTCPAddr "127.0.0.1" "0") defaultTCPParameters
Right ep <- newEndPoint transport
....
|
973 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:983:3: warning: [GHC-81995] [-Wunused-do-bind]
A do-notation statement discarded a result of type
GHC.Conc.Sync.ThreadId
Suggested fix:
Suppress this warning by saying
_ <- forkTry
$ do Just (hostName, serviceName,
endPointId) <- decodeEndPointAddress <$> readMVar serverAddress
addr : _ <- N.getAddrInfo
(Just N.defaultHints) (Just hostName) (Just serviceName)
....
|
983 | forkTry $ do
| ^^^^^^^^^^^^...
tests/TestTCP.hs:1067:20: warning: [-Wunused-matches]
Defined but not used: connid
|
1067 | ConnectionOpened connid ReliableOrdered _ <- receive ep
| ^^^^^^
tests/TestTCP.hs:1069:12: warning: [-Wunused-matches]
Defined but not used: connid'
|
1069 | Received connid' bytes <- receive ep
| ^^^^^^^
tests/TestTCP.hs:1069:20: warning: [-Wunused-matches]
Defined but not used: bytes
|
1069 | Received connid' bytes <- receive ep
| ^^^^^
tests/TestTCP.hs:1071:20: warning: [-Wunused-matches]
Defined but not used: connid''
|
1071 | ConnectionClosed connid'' <- receive ep
| ^^^^^^^^
tests/TestTCP.hs:1098:24: warning: [-Wunused-matches]
Defined but not used: addr'
|
1098 | ConnectionOpened _ _ addr' <- receive uep
| ^^^^^
[2 of 2] Linking /home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/network-transport-tcp-0.8.6/noopt/build/TestTCP/TestTCP
Running 1 test suites...
Test suite TestTCP: RUNNING...
Test suite TestTCP: PASS
Test suite logged to:
/home/builder/builder-dir/build-cache/tmp-install/reports/network-transport-tcp-0.8.6.test
Writing: network-transport-tcp-0.8.6-inplace/Network.Transport.TCP.Internal.hs.html
Writing: network-transport-tcp-0.8.6-inplace/Network.Transport.TCP.hs.html
Writing: hpc_index.html
Writing: hpc_index_fun.html
Writing: hpc_index_alt.html
Writing: hpc_index_exp.html
Test coverage report written to
/home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/network-transport-tcp-0.8.6/noopt/hpc/vanilla/html/TestTCP/hpc_index.html
1 of 1 test suites (1 of 1 test cases) passed.
Writing: network-transport-tcp-0.8.6-inplace/Network.Transport.TCP.Internal.hs.html
Writing: network-transport-tcp-0.8.6-inplace/Network.Transport.TCP.hs.html
Writing: hpc_index.html
Writing: hpc_index_fun.html
Writing: hpc_index_alt.html
Writing: hpc_index_exp.html
Package coverage report written to
/home/builder/builder-dir/build-cache/tmp-install/dist-newstyle/build/x86_64-linux/ghc-9.6.3/network-transport-tcp-0.8.6/noopt/hpc/vanilla/html/network-transport-tcp-0.8.6/hpc_index.html