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:
Edwin Brady 2019-08-29 11:50:14 +01:00
parent ea75fd21a1
commit 6a0cfa125a
2 changed files with 7 additions and 2 deletions

View File

@ -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

View File

@ -1,4 +1,3 @@
Client sent 12 bytes
Received: hello world!
Server sent 18 bytes
Received: echo: hello world!