forked from
jonmsterling.com/ocaml-forester
ocaml
Make the internal error for publication export a warning
Otherwise I can't use forester at all ;-)
+3
-3
+3
-3
lib/compiler/Phases.ml
+3
-3
lib/compiler/Phases.ml
···
314
314
match vertex with
315
315
| Content_vertex _ -> None
316
316
| Iri_vertex iri ->
317
-
Option.some @@
318
317
match Forest.find_opt forest.resources iri with
319
318
| None ->
320
-
Reporter.fatalf Internal_error "Attempted to export publication but tree `%a` has not yet been planted" Iri.pp iri
321
-
| Some result -> result
319
+
Reporter.emitf Internal_error "Attempted to export publication but tree `%a` has not yet been planted" Iri.pp iri;
320
+
None
321
+
| Some result -> Some result
322
322
in
323
323
match publication.format with
324
324
| Json_blob ->