haskell实现多线程服务器实例代码

复制代码 代码如下:module Main where import Network.Socketimport Control.Concurrent main :: IO ()main = do    sock <- socket AF_INET Stream 0    bindSocket sock (SockAddrInet 4242 iNADDR_ANY)    listen sock 10240    mainLoop sock mainLoop :: Socket -> IO ()mainLoop sock = do    conn <- accept sock    forkIO