unikernel/duniverse/dune_/test/blackbox-tests/test-cases/reason.t/ppx/dune

@@ -0,0 +1,5 @@
+(library
+ (name reasonppx)
+ (wrapped false)
+ (kind ppx_rewriter)
+ (libraries ppxlib))

unikernel/duniverse/dune_/test/blackbox-tests/test-cases/reason.t/ppx/reasonppx.ml

@@ -0,0 +1,13 @@
+let lint = ref false
+
+let () =
+  Ppxlib.Driver.add_arg "-lint" (Arg.Bool (fun l -> lint := l)) ~doc:"";
+  Ppxlib.Driver.register_transformation
+    "reasonppx"
+    ~impl:(fun s ->
+       if !lint then (
+         exit 0
+       ) else (
+         s
+       )
+    )