chore: improve error message for fsevents failure

Include the problematic event flags in the error message Signed-off-by: Rudi Grinberg <[email protected]> ps-id: 7ab84709-6af3-433e-b337-843610bd4119
ocaml · Oct 10, 2022 · d6a2798 · d6a2798
1 parent 3a999b8
commit d6a2798
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fsevents/fsevents_stubs.c b/src/fsevents/fsevents_stubs.c
@@ -288,7 +288,7 @@ CAMLprim value dune_fsevents_action(value v_flags) {
   } else if (flags & kFSEventStreamEventFlagItemModified) {
     v_action = Val_int(3);
   } else {
-    caml_failwith("fsevents: unexpected event action");
+    caml_failwith(sprintf("fsevents: unexpected event action %d", Int32_val(v_flags)));
   }
 
   CAMLreturn(v_action);