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

时间:2021-03-20 人气:1

想了解haskell实现多线程服务器实例代码的相关内容吗，在本文为您仔细讲解haskell实现多线程服务器的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：haskell,多线程服务器，下面大家一起来学习吧。

module Main where

import Network.Socket
import 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 $ runConn conn
    mainLoop sock

runConn :: (Socket, SockAddr) -> IO ()
runConn (sock, tcp) = do
    sms<-recv sock 1024
    peeraddr <- getPeerName sock
    putStrLn sms
    runConn (sock, tcp)

加载全部内容