Ascolta su TCP e UDP sulla stessa porta

Question

Come posso ottenere che Haskell ascolti UDP e TCP sulla stessa porta?

Ecco il codice che ho finora (sulla base di acme-http):

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               
    )                  

ho compila bene, ma ottengo l'errore follow runtime:

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

Purtroppo, documentazione su la programmazione di rete in Haskell è un po 'limitata (come al solito). Non so davvero dove dovrei cercare di capire queste cose.

[UPDATE]
Per qualcuno è interessato, ecco il risultato:

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

mi rendo conto che c'è un sacco di spazio per migliorare, ma funziona.

Answer 1

Non sembra che ci sia qualcosa di sbagliato in questo codice, ma da qualche altra parte il tuo codice sembra chiamare accept() sul socket UDP, che non è legale. Tutto ciò che devi fare con un socket UDP è ricevere da esso e inviare con esso.