复制代码 代码如下:module Main where import Network.Socketimport Control.Concurrent main :: IO ()main = do    sock IO ()mainLoop sock = do    conn <- accept sock    f