@@ -8,66 +8,66 @@ import Effect (Effect)
88import Effect.Console (errorShow , infoShow , logShow )
99import Node.Buffer (toString )
1010import Node.Encoding (Encoding (..))
11- import Node.Net ( address , close , createConnectionTCP , createServer , endString , listenTCP , localAddress , localPort , onCloseServer , onCloseSocket , onConnect , onConnection , onData , onDrain , onEnd , onErrorServer , onErrorSocket , onListening , onLookup , onReady , onTimeout , writeString )
11+ import Node.Net as Node.Net
1212
1313main :: Effect Unit
1414main = do
15- server <- createServer mempty \socket -> do
15+ server <- Node.Net . createServer mempty \socket -> do
1616 infoShow { _message: " Server received connection" }
17- void $ writeString socket " Hello socket\n " UTF8 mempty
18- endString socket " Server is ending connection\n " UTF8 mempty
17+ void $ Node.Net . writeString socket " Hello socket\n " UTF8 mempty
18+ Node.Net . endString socket " Server is ending connection\n " UTF8 mempty
1919
20- onCloseServer server do
20+ Node.Net . onCloseServer server do
2121 infoShow { _message: " Server closed" }
22- onConnection server \socket -> do
23- addr <- localAddress socket
24- port <- localPort socket
22+ Node.Net . onConnection server \socket -> do
23+ addr <- Node.Net . localAddress socket
24+ port <- Node.Net . localPort socket
2525 infoShow { _message: " Connection successfully made" , addr, port }
26- onErrorServer server \err -> do
26+ Node.Net . onErrorServer server \err -> do
2727 infoShow { _message: " Server had an error" , err }
28- onListening server do
28+ Node.Net . onListening server do
2929 infoShow { _message: " Server is listening" }
3030
31- listenTCP server 0 " localhost" 511 do
32- addr <- address server
31+ Node.Net . listenTCP server 0 " localhost" 511 do
32+ addr <- Node.Net . address server
3333 infoShow { _message: " Opened server" , addr }
3434 case addr of
3535 Just (Left { port }) -> do
36- socket <- createConnectionTCP port " localhost" do
36+ socket <- Node.Net . createConnectionTCP port " localhost" do
3737 infoShow { _message: " Connected to server" }
3838
39- onCloseSocket socket case _ of
39+ Node.Net . onCloseSocket socket case _ of
4040 false -> infoShow { _message: " Socket closed without an error" }
4141 true -> errorShow { _message: " Socket closed with an error" }
42- onConnect socket do
42+ Node.Net . onConnect socket do
4343 infoShow {_message: " Socket connected" }
44- onData socket case _ of
44+ Node.Net . onData socket case _ of
4545 Left buffer -> do
4646 logShow { _message: " Received some data" , buffer }
4747 bufferString <- toString UTF8 buffer
4848 logShow { _message: " Converted to a `String`" , buffer, bufferString }
4949 Right string -> logShow { _message: " Received some data" , string }
50- void $ onDrain socket do
50+ void $ Node.Net . onDrain socket do
5151 infoShow { _message: " Socket drained" }
52- onEnd socket do
52+ Node.Net . onEnd socket do
5353 infoShow { _message: " Socket ended, closing server" }
54- close server mempty
55- onErrorSocket socket \err ->
54+ Node.Net . close server mempty
55+ Node.Net . onErrorSocket socket \err ->
5656 errorShow { _message: " Socket had an error" , err }
57- onLookup socket case _ of
57+ Node.Net . onLookup socket case _ of
5858 Left err ->
5959 infoShow { _message: " Socket had an error resolving DNS" , err }
6060 Right lookup ->
6161 infoShow { _message: " Socket successfully resolved DNS" , lookup }
62- onReady socket do
62+ Node.Net . onReady socket do
6363 infoShow { _message: " Socket is ready" }
64- void $ writeString socket " Hello server" UTF8 mempty
65- onTimeout socket do
64+ void $ Node.Net . writeString socket " Hello server" UTF8 mempty
65+ Node.Net . onTimeout socket do
6666 infoShow { _message: " Socket timed out" }
67- endString socket " Closing connection" UTF8 mempty
67+ Node.Net . endString socket " Closing connection" UTF8 mempty
6868
6969 Just (Right endpoint) -> do
7070 errorShow { _message: " Server unexpectedly connected over ICP" }
71- close server mempty
71+ Node.Net . close server mempty
7272
73- _ -> close server mempty
73+ _ -> Node.Net . close server mempty
0 commit comments