unikernel/duniverse/ocaml-cstruct/ppx_test/errors/pp.ml

@@ -0,0 +1,11 @@
+(* we can just use exit from 4.07 onwards, but 4.06
+ * and earlier executed at_exit recursively *)
+external sys_exit : int -> 'a = "caml_sys_exit"
+let () = at_exit (fun () -> sys_exit 0)
+
+#if OCAML_VERSION >= (4,8,0)
+let () = Clflags.(error_style := Some Short)
+#endif
+
+let () = Clflags.(color := Some Never)
+let () = Ppxlib.Driver.standalone ()