fixup! CA-283754: v6_interface, do not discard internal errors

xapi-project · Feb 19, 2018 · b166be3 · b166be3
1 parent a848b05
commit b166be3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/v6/v6_interface.ml b/v6/v6_interface.ml
@@ -94,8 +94,7 @@ exception V6_error of errors
 (** handle exception generation and raising *)
 let err = Error.{
     def = errors;
-    raiser = (function
-        | e -> raise (V6_error e));
+    raiser = (fun e -> raise (V6_error e));
     matcher = (function
         | V6_error e -> Some e
         | e -> Some (Internal_error (Printexc.to_string e)))