ocaml
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

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
··· 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