aboutsummaryrefslogtreecommitdiffstats
path: root/tools/ocaml/xenstored/xenstored.ml
diff options
context:
space:
mode:
Diffstat (limited to 'tools/ocaml/xenstored/xenstored.ml')
-rw-r--r--tools/ocaml/xenstored/xenstored.ml4
1 files changed, 1 insertions, 3 deletions
diff --git a/tools/ocaml/xenstored/xenstored.ml b/tools/ocaml/xenstored/xenstored.ml
index a08aa65d33..564dbeaddb 100644
--- a/tools/ocaml/xenstored/xenstored.ml
+++ b/tools/ocaml/xenstored/xenstored.ml
@@ -43,9 +43,7 @@ let process_connection_fds store cons domains rset wset =
debug "closing socket connection"
in
let process_fdset_with fds fct =
- List.iter (fun fd ->
- try try_fct fct (Connections.find cons fd)
- with Not_found -> ()) fds
+ List.iter (fun fd -> try_fct fct (Connections.find cons fd)) fds
in
process_fdset_with rset Process.do_input;
process_fdset_with wset Process.do_output