typer: bugfix: stray leftover attempt to typecheck the old way in the new typer
This commit is contained in:
parent
c5190ac91d
commit
ef6f46db5b
@ -521,7 +521,6 @@ and type_expression : environment -> Solver.state -> ?tv_opt:O.type_value -> I.e
|
||||
trace_option error @@
|
||||
Environment.get_constructor c e in
|
||||
let%bind (expr' , state') = type_expression e state expr in
|
||||
let%bind _assert = O.assert_type_value_eq (expr'.type_annotation, c_tv) in
|
||||
let wrapped = Wrap.constructor expr'.type_annotation c_tv sum_tv in
|
||||
return_wrapped (E_constructor (c , expr')) state' wrapped
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user