CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-19 00:15:39 +03:00
Code Issues Projects Releases Wiki Activity

Uppercase constructors

Browse Source
This commit is contained in:
Denis Merigoux 2023-12-19 17:40:38 +01:00
parent a9764d607e
commit dcd883e53c
No known key found for this signature in database
GPG Key ID: EE99DCFA365C3EE3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/lcalc/monomorphize.ml
View File

@ -98,11 +98,11 @@ let program (prg : typed program) : typed program =
{
some_cons =
EnumConstructor.fresh
( "some_" ^ string_of_int !option_instances_counter,
( "Some_" ^ string_of_int !option_instances_counter,
Pos.no_pos );
none_cons =
EnumConstructor.fresh
( "none_" ^ string_of_int !option_instances_counter,
( "None_" ^ string_of_int !option_instances_counter,
Pos.no_pos );
some_typ = Mark.remove t;
name =