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

Delete duplicate code from 9d3550374d

Browse Source
This commit is contained in:
Denis Merigoux 2024-02-01 17:23:31 +01:00
parent d7e71885c1
commit afa8ee44bf
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/lcalc/monomorphize.ml
View File

@ -255,12 +255,6 @@ let rec monomorphize_expr
let new_cases =
match new_cases with
| [(n1, e1); (n2, e2)] -> (
let is_some c =
EnumConstructor.equal Expr.some_constr c
||
(assert (EnumConstructor.equal Expr.none_constr c);
false)
in
match is_some n1, is_some n2 with
| true, false ->
[option_instance.some_cons, e1; option_instance.none_cons, e2]