balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Forgot to patch simplify.ml to accept the new AST (for record types).

Browse Source
This commit is contained in:
Christian Rinderknecht 2019-04-01 15:02:13 +02:00
parent 0d98252fa0
commit 24b9b9f5ce
No known key found for this signature in database
GPG Key ID: 9446816CFD267040
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ligo/simplify.ml
View File

@ -51,7 +51,7 @@ let rec simpl_type_expression (t:Raw.type_expr) : type_expression result =
let%bind lst = bind_list let%bind lst = bind_list
@@ List.map aux @@ List.map aux
@@ List.map (fun (x:Raw.field_decl Raw.reg) -> (x.value.field_name.value, x.value.field_type)) @@ List.map (fun (x:Raw.field_decl Raw.reg) -> (x.value.field_name.value, x.value.field_type))
@@ npseq_to_list r.value.field_decls in @@ pseq_to_list r.value.elements in
let m = List.fold_left (fun m (x, y) -> SMap.add x y m) SMap.empty lst in let m = List.fold_left (fun m (x, y) -> SMap.add x y m) SMap.empty lst in
ok @@ T_record m ok @@ T_record m
| TSum s -> | TSum s ->