ホームページ  >  記事  >  バックエンド開発  >  haskell实现多线程服务器实例代码

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

WBOY
WBOYオリジナル
2016-06-06 11:28:161114ブラウズ

代码如下:


module Main where

import Network.Socket
import Control.Concurrent

main :: IO ()
main = do
    sock     bindSocket sock (SockAddrInet 4242 iNADDR_ANY)
    listen sock 10240
    mainLoop sock

mainLoop :: Socket -> IO ()
mainLoop sock = do
    conn     forkIO $ runConn conn
    mainLoop sock

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

声明:
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。