В Haskell сокете не удалось на окнах

Question

я задал вопрос о сигнале на окнах с тем же кодом, вот еще один вопрос

import IO 
import Control.Exception hiding (catch) 
import Control.Concurrent 
import Network 

main = withSocketsDo $ do {main'} 
main' = listenOn (PortNumber 9900) >>= acceptConnections 

acceptConnections sock = do 
     putStrLn $ "trying to accept" ++ (show sock)-- debug msg 
     conn@(h,host,port) <- accept sock 
     print conn -- debug msg 
     forkIO $ catch (talk conn `finally` hClose h) (\e -> print e) 
     acceptConnections sock 

talk conn@(h,_,_) = hGetLine h >>= hPutStrLn h >> hFlush h >> talk conn 

я запустить программу на win7, и это похоже на сокет, созданный успеха , но я не могу подключиться к telnet, а netstat не показывает никакого прослушивающего сокета с процессом, есть ли что-то не так? Или у haskell есть ошибка на окнах? (Кстати, на debian с этим кодом работает отлично)

Answer 1

Когда я использую netstat -a на win7, я обнаружил, что прослушивающий ip с портом 9900 is [::], ни 127.0.0.1, ни 0.0.0.0, поэтому я думаю, что проблема заключается в создании сокета в функции «listenOn», затем я написал «listenOn2». И проблема решена. Вот полный код: (единственная разница заключается в изменении прото с [[getProtocolNumber "tcp"]] на [[defaultProtocol]]), возможно, это ошибка.

import IO 
import Control.Exception hiding (catch) 
import Control.Concurrent 
import Network 
import Network.Socket 
listenOn2 (PortNumber port) = do 
     --proto <- getProtocolNumber "tcp" ,here is the difference!!!! 
     let proto = defaultProtocol 
     bracketOnError 
      (socket AF_INET Stream proto) 
      (sClose) 
      (\sock -> do 
       setSocketOption sock ReuseAddr 1 
       --addr <- inet_addr "127.0.0.1" 
       bindSocket sock (SockAddrInet port iNADDR_ANY) 
       listen sock maxListenQueue 
       return sock 
      ) 
main = withSocketsDo $ do {main'} 
main' = listenOn2 (PortNumber 9900) >>= acceptConnections 

acceptConnections sock = do 
     putStrLn $ "trying to accept" ++ (show sock)-- debug msg 
     conn@(h,host,port) <- Network.accept sock 
     print conn -- debug msg 
     forkIO $ catch (talk conn `finally` hClose h) (\e -> print e) 
     acceptConnections sock 

talk conn@(h,_,_) = hGetLine h >>= hPutStrLn h >> hFlush h >> talk conn