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

Messages: ensure disabled messages aren't computed

Browse Source
This commit is contained in:
Louis Gesbert 2024-05-03 15:13:08 +02:00
parent 396ea03ff9
commit 19672d2305
1 changed files with 44 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/catala_utils/message.ml
View File

@ -352,6 +352,12 @@ let make
?(suggestion = [])
~cont
~level =
match level with
| Debug when not Global.options.debug ->
Format.ikfprintf (fun _ -> cont [] level) (Lazy.force ignore_ppf)
| Warning when Global.options.disable_warnings ->
Format.ikfprintf (fun _ -> cont [] level) (Lazy.force ignore_ppf)
| _ ->
Format.kdprintf
@@ fun message ->
let t =