From ea74ed8a2ca7e9d609f11f3ab1775c6b1ae817f8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Suzanne=20Dup=C3=A9ron?= <ligo@suzanne.soy>
Date: Mon, 10 Feb 2020 21:05:51 +0100
Subject: [PATCH] Normalize indentation etc. of ast_typed in preparation for
 the ADT generator

---
 src/stages/ast_typed/types.ml | 120 +++++++++++++++++++++-------------
 1 file changed, 74 insertions(+), 46 deletions(-)

diff --git a/src/stages/ast_typed/types.ml b/src/stages/ast_typed/types.ml
index 5aa323c9b..8d4170b45 100644
--- a/src/stages/ast_typed/types.ml
+++ b/src/stages/ast_typed/types.ml
@@ -26,11 +26,12 @@ and declaration =
   *)
 (* | Macro_declaration of macro_declaration *)
 
-and expression =
-  { expression_content: expression_content
-  ; location: Location.t
-  ; type_expression: type_expression
-  ; environment: full_environment }
+and expression = {
+    expression_content: expression_content ;
+    location: Location.t ;
+    type_expression: type_expression ;
+    environment: full_environment ;
+  }
 
 and expression_content =
   (* Base *)
@@ -56,63 +57,90 @@ and expression_content =
   | E_look_up of (expression * expression)
   (* Advanced *)
   | E_loop of loop
-  (*
-  | E_ascription of ascription
-  *)
-
-and constant =
-  { cons_name: constant' (* this is at the end because it is huge *)
-  ; arguments: expression list }
+  (* | E_ascription of ascription *)
 
+and constant = {
+    cons_name: constant' ;
+    arguments: expression list ;
+  }
 
 and application = {expr1: expression; expr2: expression}
 
-and lambda =
-  { binder: expression_variable 
- (* ; input_type: type_expression option
-  ; output_type: type_expression option *)
-  ; result: expression }
-
-and let_in =
-  { let_binder: expression_variable
-  ; rhs: expression
-  ; let_result: expression
-  ; inline : inline }
-
-and constructor = {constructor: constructor'; element: expression}
-
-and accessor = {expr: expression; label: label}
-
-and update = {record: expression; path: label ; update: expression}
-
-and loop = {condition: expression; body: expression}
-
-and matching_expr = (expression,type_expression) matching_content
-and matching =
-  { matchee: expression
-  ; cases: matching_expr
+and lambda =  {
+    binder: expression_variable ;
+    (* input_type: type_expression option ; *)
+    (* output_type: type_expression option ; *)
+    result: expression ;
   }
 
-and ascription = {anno_expr: expression; type_annotation: type_expression}
+and let_in = {
+    let_binder: expression_variable ;
+    rhs: expression ;
+    let_result: expression ;
+    inline : inline ;
+  }
+
+and constructor = {
+    constructor: constructor';
+    element: expression ;
+  }
+
+and accessor = {
+    expr: expression ;
+    label: label ;
+  }
+
+and update = {
+    record: expression ;
+    path: label ;
+    update: expression ;
+  }
+
+and loop = {
+    condition: expression ;
+    body: expression ;
+  }
+
+and matching_expr = (expression, type_expression) matching_content
+and matching = {
+    matchee: expression ;
+    cases: matching_expr ;
+  }
+
+and ascription = {
+    anno_expr: expression ;
+    type_annotation: type_expression ;
+  }
 
 
 and environment_element_definition =
   | ED_binder
-  | ED_declaration of (expression * free_variables)
+  | ED_declaration of environment_element_definition_declaration
+
+and environment_element_definition_declaration =
+  (expression * free_variables)
 
 and free_variables = expression_variable list
 
-and environment_element =
-  { type_value: type_expression
-  ; source_environment: full_environment
-  ; definition: environment_element_definition }
+and environment_element = {
+    type_value: type_expression ;
+    source_environment: full_environment ;
+    definition: environment_element_definition ;
+  }
 
-and environment = (expression_variable * environment_element) list
+and environment = environment_binding list
 
-and type_environment = (type_variable * type_expression) list
+and environment_binding =
+  (expression_variable * environment_element)
+
+and type_environment = type_environment_binding list
+
+and type_environment_binding =
+  (type_variable * type_expression)
 
 (* SUBST ??? *)
-and small_environment = environment * type_environment
+and small_environment =
+  (environment * type_environment)
 
 and full_environment = small_environment List.Ne.t
 
@@ -123,4 +151,4 @@ and texpr = type_expression
 and named_type_content = {
     type_name : type_variable;
     type_value : type_expression;
-}
+  }