We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 158a6fd commit 9aeb3daCopy full SHA for 9aeb3da
static/tutorial/tutorial-server.hs
@@ -1,5 +1,6 @@
1
import Network.Transport
2
import Network.Transport.TCP (createTransport, defaultTCPParameters)
3
+import Network.Socket.Internal (withSocketsDo)
4
import Control.Concurrent
5
import Data.Map
6
import Control.Exception
@@ -44,7 +45,7 @@ p `onCtrlC` q = catchJust isUserInterrupt p (const $ q >> p `onCtrlC` q)
44
45
isUserInterrupt _ = Nothing
46
47
main :: IO ()
-main = do
48
+main = withSocketsDo $ do
49
[host, port] <- getArgs
50
serverDone <- newEmptyMVar
51
Right transport <- createTransport host port defaultTCPParameters
0 commit comments