TCP ve UDP'yi aynı bağlantı noktasında dinleme

Question

Haskell'in UDP ve TCP'yi aynı bağlantı noktasında dinlemesini nasıl sağlayabilirim? İşte

şimdiye kadar (acme-http dayanarak) olan koddur: Ben iyi derler ama ben takip çalışma zamanı hatası almak

listenOn portm = do                
    protoTCP <- getProtocolNumber "tcp"           
    E.bracketOnError                
    (socket AF_INET Stream protoTCP)           
    sClose                 
    (\sock -> do                
     setSocketOption sock ReuseAddr 1          
     setSocketOption sock NoDelay 1          
     bindSocket sock (SockAddrInet (fromIntegral portm) iNADDR_ANY)   
     listen sock (max 1024 maxListenQueue)        
     return sock               
    )                  
    protoUDP <- getProtocolNumber "udp"           
    E.bracketOnError                
    (socket AF_INET Datagram protoUDP)          
    sClose                 
    (\sock -> do                
     setSocketOption sock ReuseAddr 1          
     bindSocket sock (SockAddrInet (fromIntegral portm) iNADDR_ANY)   
     return sock               
    )                  

: on, maalesef belgelere

user error (accept: can't perform accept on socket ((AF_INET,Datagram,17)) in status Bound) 

Haskell'de ağ programlaması biraz sınırlıdır (her zamanki gibi). Bu şeyleri anlamak için nereye bakacağımı bilmiyorum.

[GÜNCELLEME] herkes için
burada, ilgilenen sonucudur:

https://github.com/joehillen/acme-sip/blob/master/Acme/Serve.hs

Ben iyileştirilmesi için oda bir sürü var farkındayım ama işe yarıyor.

Answer 1

Bu kodda yanlış bir şey yok gibi görünüyor, ancak başka bir yerde kodunuz UDP soketinde accept() numaralı telefonu arıyor gibi görünüyor. UDP soketi ile yapmanız gereken tek şey, ondan alır ve gönderir.