6

我正在尝试处理下面的代码（代码是此处的副本）。问题是当我用 ctrl+c 关闭服务器并尝试再次运行它时，我得到：*异常：绑定：资源繁忙（地址已在使用中）。

在 listenOn 的文档中写道： 注意：为了避免在 GHC 用户邮件列表中多次弹出“地址已在使用”问题，我们在侦听套接字上设置了 ReuseAddrsocket 选项。如果您不希望这种行为，请改用较低级别的监听。请问我该如何解决这个问题？（ghci 版本 7.6.3）

import Network (listenOn, accept, PortID(..))  
import Network.Socket (Socket, isSupportedSocketOption, SocketOption(..))
import System.IO (hSetBuffering, hGetLine, hPutStrLn, BufferMode(..), Handle)                                                                        
import Control.Concurrent (forkIO)                                        

echoImpl :: Handle -> IO ()                                               
echoImpl client = do                                                      
    line <- hGetLine client                                                
    hPutStrLn client line                                                  
    echoImpl client                                                        

clientHandler :: Socket -> IO ()                                          
clientHandler socket = do                                                        
    (client, _, _) <- accept socket                                          
    hSetBuffering client NoBuffering                                       
    forkIO $ echoImpl client                                               
    clientHandler socket                                                     

felix :: IO () 
felix = do
    let reuseAddrSupported = isSupportedSocketOption ReuseAddr
    putStrLn $ "ReuseAddr: " ++ show reuseAddrSupported
    socket <- listenOn $ PortNumber 5002
    putStrLn $ "Echo server started .."
    clientHandler socket
4

0 回答 0