forked from
jonmsterling.com/ocaml-forester
ocaml
Only halt compilation on errors.
References:
https://todo.sr.ht/~jonsterling/forester/170
https://todo.sr.ht/~jonsterling/forester/169
authored by
Kento Okura
and committed by
Jon Sterling
e2b4c051
57157858
+13
-1
+13
-1
lib/compiler/Driver.ml
+13
-1
lib/compiler/Driver.ml
···
195
195
let implant_foreign = run_until_done Plant_foreign
196
196
let plant_assets = run_until_done Plant_assets
197
197
198
+
let any_fatal =
199
+
List.fold_left
200
+
Asai.Diagnostic.(
201
+
fun acc x ->
202
+
acc
203
+
|| x.severity = Error
204
+
|| x.severity = Bug
205
+
)
206
+
false
207
+
198
208
let batch_run ~env ~(config : Config.t) ~dev =
199
209
let init =
200
210
State.make ~env ~config ~dev ()
···
211
221
assert (List.length errors > 0);
212
222
Logs.debug (fun m -> m "got %d errors" (List.length errors));
213
223
List.iter Reporter.Tty.display errors;
214
-
go (Quit Fail) new_state
224
+
if any_fatal errors then
225
+
go (Quit Fail) new_state
226
+
else go new_action new_state
215
227
| _ ->
216
228
go new_action new_state
217
229
in