Commit 576c857d authored by Mart Lubbers's avatar Mart Lubbers

fix socket examples for new api

parent 2610c869
Pipeline #21490 failed with stage
in 2 minutes and 54 seconds
......@@ -9,7 +9,7 @@ import System.Socket.Ipv4
Start :: *World -> (MaybeOSError String, *World)
Start w
= case socket ST_Stream 0 w of
= case socket ST_Stream w of
(Error e, w) = (Error e, w)
(Ok sockfd, w)
#! (merr, sockfd) = connect {sin_port=8124,sin_addr=Just (fromString "127.0.0.1")} sockfd
......
......@@ -10,7 +10,7 @@ import System.Socket.Ipv4
Start :: *World -> (MaybeOSError (), *World)
Start w
= case socket ST_Stream 0 w of
= case socket ST_Stream w of
(Error e, w) = (Error e, w)
(Ok sockfd, w)
#! (merr, sockfd) = bind {sin_port=8124,sin_addr=Nothing} sockfd
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment