We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent a9754c2 commit 158a6fdCopy full SHA for 158a6fd
static/tutorial/tutorial-client.hs
@@ -1,11 +1,12 @@
1
import Network.Transport
2
import Network.Transport.TCP (createTransport, defaultTCPParameters)
3
+import Network.Socket.Internal (withSocketsDo)
4
import System.Environment
5
import Control.Monad
6
import Data.ByteString.Char8
7
8
main :: IO ()
-main = do
9
+main = withSocketsDo $ do
10
[host, port, serverAddr] <- getArgs
11
Right transport <- createTransport host port defaultTCPParameters
12
Right endpoint <- newEndPoint transport
0 commit comments