-- | Listen UDP
listenUDP :: Int -> IO Socket
listenUDP port = do sock <- socket AF_INET Datagram 0
                    bindSocket sock $ SockAddrInet (toEnum port) iNADDR_ANY
                    return sock
listenUDP :: Int -> IO Socket
listenUDP port = do sock <- socket AF_INET Datagram 0
                    bindSocket sock $ SockAddrInet (toEnum port) iNADDR_ANY
                    return sock
listenUDP port = do sock <- socket AF_INET Datagram 0
                    bindSocket sock $ SockAddrInet (toEnum port) iNADDR_ANY
                    return sock