robhoes/xen-api — comment on commit 2690fc70edfbd4181755efb49a0a4d8ff143ee68
File: ocaml/network/network_utils.ml line 289
By djs55:

I wonder if you should define a default value or something like
let safe_hd log_on_failure x =
try List.hd x with Not_found -> log log_on_failure