let listener_run l =
      let io_srv = io_listener_run l
      in
        match IO.runIO (IO.wait_server io_srv) with
        | `Ok () -> ()
        | `Error e -> raise e