correctly delete preprocessor output after usage

jboillot · jboillot · commit 82bafbea5100 · 2024-07-17T15:24:20.000+02:00
diff --git a/src/ocaml/driver/pparse.ml b/src/ocaml/driver/pparse.ml
@@ -180,6 +180,7 @@ let apply_pp ~workdir ~filename ~source ~pp =
     let ic = open_in_bin fn_out in
     let result = Misc.string_of_file ic in
     close_in ic;
+    Misc.remove_file fn_out;
     Ok result
 
 let decode_potential_ast source =
