withSocket :: FilePath -> (N.Socket -> IO a) -> IO a
withSocket sock = bracket (createListenSocket sock) (cleanupSocket sock)
withSocket :: FilePath -> (N.Socket -> IO a) -> IO a
withSocket sock = bracket (createListenSocket sock) (cleanupSocket sock)
withSocket sock = bracket (createListenSocket sock) (cleanupSocket sock)