mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-25 22:06:33 +03:00
Update network build test
Since it's just to check that it's built successful and we can send a message back and forth, remove the diagnostic message that might come out in a different order depending on scheduling.
This commit is contained in:
parent
ea75fd21a1
commit
6a0cfa125a
@ -33,7 +33,13 @@ runServer = do
|
||||
putStrLn ("Received: " ++ str)
|
||||
Right n <- send s ("echo: " ++ str)
|
||||
| Left err => putStrLn ("Server failed to send data with error: " ++ show err)
|
||||
putStrLn ("Server sent " ++ show n ++ " bytes")
|
||||
-- This might be printed either before or after the client prints
|
||||
-- what it's received, and I think there's enough to check it's
|
||||
-- working without this message so I've removed it. If you disagree,
|
||||
-- please put it back, but also please make sure it's synchronised
|
||||
-- such that the messages are always printed in the same order. - EB
|
||||
-- putStrLn ("Server sent " ++ show n ++ " bytes")
|
||||
pure ()
|
||||
|
||||
runClient : Port -> IO ()
|
||||
runClient serverPort = do
|
||||
|
@ -1,4 +1,3 @@
|
||||
Client sent 12 bytes
|
||||
Received: hello world!
|
||||
Server sent 18 bytes
|
||||
Received: echo: hello world!
|
||||
|
Loading…
Reference in New Issue
Block a user