CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-11-08 07:51:43 +03:00
Code Issues Projects Releases Wiki Activity

Internal typing: print the faulty program when debug is enabled

Browse Source 
Since the typing error happened on generated code, it's hard to debug without
printing it.
This commit is contained in:
Louis Gesbert 2024-06-21 12:09:40 +02:00
parent 70c01749b2
commit 0e05c75028
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/shared_ast/typing.ml
View File

@ -1108,18 +1108,20 @@ let program ?fail_on_any ?assume_op_types ?(internal_check=false) prg =
if internal_check then
fun f ->
try Message.with_delayed_errors f with
| Message.CompilerErrors errs ->
| Message.CompilerError _ | Message.CompilerErrors _ as exc ->
let bt = Printexc.get_raw_backtrace () in
Printexc.raise_with_backtrace
(Message.CompilerErrors
(List.map Message.Content.to_internal_error errs))
bt
let err = match exc with
| Message.CompilerError err ->
let bt = Printexc.get_raw_backtrace () in
Printexc.raise_with_backtrace
(Message.CompilerError
(Message.Content.to_internal_error err))
bt
Message.CompilerError
(Message.Content.to_internal_error err)
| Message.CompilerErrors errs ->
Message.CompilerErrors
(List.map Message.Content.to_internal_error errs)
| _ -> assert false
in
Message.debug "Faulty intermediate program:@ %a"
(Print.program ~debug:true) prg;
Printexc.raise_with_backtrace err bt
else
fun f -> Message.with_delayed_errors f
in