adds minimal error-handling

Now instead of ignoring errors and spoiling stderr, we capture the output and failwith the captured message. Signed-off-by: ivg <[email protected]>
ocaml · Jan 10, 2023 · 467c383 · 467c383
1 parent 3707ca4
commit 467c383
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/otherlibs/site/src/plugins/linker/toplevel/linker.ml b/otherlibs/site/src/plugins/linker/toplevel/linker.ml
@@ -1 +1,10 @@
-let load = Topdirs.dir_load Format.err_formatter
+let load filename =
+  let buf = Buffer.create 16 in
+  let ppf = Format.formatter_of_buffer buf in
+  match Toploop.load_file ppf filename with
+  | true -> ()
+  | false ->
+    Format.pp_print_flush ppf ();
+    failwith
+    @@ Format.asprintf "Failed to load file `%s': %s" filename
+         (Buffer.contents buf)