Commit 5165c7dc authored by Camil Staps's avatar Camil Staps 🐧

Hide "! ignored" warnings for identifiers generated for determineProducers

parent 67d797fd
......@@ -3457,7 +3457,7 @@ determineProducers consumer_properties consumer_is_curried ok_non_rec_consumer c
(info_ptr, ti_var_heap) = newPtr (VI_Extended (EVI_VarType arg_type) VI_Empty) ti.ti_var_heap
ti = {ti & ti_var_heap = ti_var_heap}
lb = {lb_dst=
{ fv_ident = {id_name = "dummy_for_strict_unused", id_info = nilPtr}
{ fv_ident = {id_name = "_dummy_for_strict_unused", id_info = nilPtr}
, fv_info_ptr = info_ptr
, fv_count = 0
, fv_def_level = NotALevel
......@@ -3566,7 +3566,7 @@ where
(info_ptr, ti_var_heap) = newPtr (VI_Extended (EVI_VarType arg_type) VI_Empty) ti.ti_var_heap
ti & ti_var_heap = ti_var_heap
lb = {lb_dst=
{ fv_ident = {id_name = "dummy_for_strict_unused", id_info = nilPtr}
{ fv_ident = {id_name = "_dummy_for_strict_unused", id_info = nilPtr}
, fv_info_ptr = info_ptr, fv_count = 0, fv_def_level = NotALevel }
,lb_src=arg, lb_position=NoPos }
-> ([(lb,arg_type)],ti)
......
......@@ -2040,7 +2040,7 @@ where
= (bind_found, [], collected_binds, free_vars, dynamics, cos)
report_unused_strict_binds [(is_strict,type,{lb_dst={fv_ident},lb_position}):binds] errors
| not is_strict
| not is_strict || fv_ident.id_name == "_dummy_for_strict_unused"
= report_unused_strict_binds binds errors
= report_unused_strict_binds binds (checkWarningWithPosition fv_ident lb_position "not used, ! ignored" errors)
report_unused_strict_binds [] errors
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment