forked from Orchid/orchid
14 lines
397 B
Plaintext
14 lines
397 B
Plaintext
import std::socket::tcp::(connect, read, write_all, close, peer_addr)
|
|
import system::io::println
|
|
|
|
const main := do cps {
|
|
cps conn = connect "127.0.0.1:8080";
|
|
cps addr = peer_addr conn;
|
|
cps println $ "Connected to ${addr}";
|
|
cps _ = write_all conn "Hello from Orchid!\n";
|
|
cps response = read conn 1024;
|
|
cps println $ "Server response: ${response}";
|
|
cps _ = close conn;
|
|
cps pass 0;
|
|
}
|