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

Cleanup

Browse Source
This commit is contained in:
Georges Dupéron 2019-03-14 18:05:07 +01:00
parent e1ad18cd3e
commit fbf6e5d89f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
AST2.ml
View File

@ -7,7 +7,7 @@ open Region
module SMap = Map.Make(String) module SMap = Map.Make(String)
module O = struct module O = struct
type asttodo = [`TODO] type asttodo = [`TODO] (* occurrences of asttodo will point to some part of the original parser AST *)
type name_and_region = {name: string; orig: Region.t} type name_and_region = {name: string; orig: Region.t}
type type_name = name_and_region type type_name = name_and_region
@ -45,7 +45,6 @@ module O = struct
| Int | Int
| Unit | Unit
| Bool | Bool
and 'key type_record = ('key * type_expr) list
and type_expr = { type_expr: type_expr_case; name: type_name option; orig: Region.t } and type_expr = { type_expr: type_expr_case; name: type_name option; orig: Region.t }