From fbf6e5d89fe8412cd9e55535f4bc640e2c300945 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@nomadic-labs.com>
Date: Thu, 14 Mar 2019 18:05:07 +0100
Subject: [PATCH] Cleanup

---
 AST2.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/AST2.ml b/AST2.ml
index 04092cc0b..480764e90 100644
--- a/AST2.ml
+++ b/AST2.ml
@@ -7,7 +7,7 @@ open Region
 module SMap = Map.Make(String)
 
 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 type_name  = name_and_region
@@ -45,7 +45,6 @@ module O = struct
   | Int
   | Unit
   | Bool
-  and 'key type_record = ('key * type_expr) list
 
   and type_expr = { type_expr: type_expr_case; name: type_name option; orig: Region.t }