createUnixSocket, createInetSocket :: WebappConfiguration -> IO Socket

createUnixSocket conf = do
    sock <- socket AF_UNIX Datagram defaultProtocol
    catchIOError (removeFile (bindAddress conf)) (const $ return ())
    bind sock (SockAddrUnix (bindAddress conf))
    return sock
createUnixSocket, createInetSocket :: WebappConfiguration -> IO Socket
createUnixSocket conf = do
    sock <- socket AF_UNIX Datagram defaultProtocol
    catchIOError (removeFile (bindAddress conf)) (const $ return ())
    bind sock (SockAddrUnix (bindAddress conf))
    return sock
createUnixSocket conf = do
    sock <- socket AF_UNIX Datagram defaultProtocol
    catchIOError (removeFile (bindAddress conf)) (const $ return ())
    bind sock (SockAddrUnix (bindAddress conf))
    return sock