From 412d7215517f42c90ba6f53432798a5eef093475 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 2 Feb 2022 17:06:40 +0100
Subject: Work on formatting

---
 src/ExtractToFStar.ml | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/src/ExtractToFStar.ml b/src/ExtractToFStar.ml
index f4cc0d6c..340092b4 100644
--- a/src/ExtractToFStar.ml
+++ b/src/ExtractToFStar.ml
@@ -205,7 +205,8 @@ let extract_type_def_struct_body (ctx : extraction_ctx) (fmt : F.formatter)
    *
    * Or if there isn't enough space on one line:
    * ```
-   * type t = {
+   * type t =
+   * {
    *   x : int;
    *   y : bool;
    * }
@@ -222,7 +223,6 @@ let extract_type_def_struct_body (ctx : extraction_ctx) (fmt : F.formatter)
     F.pp_print_space fmt ();
     F.pp_print_string fmt "{";
     (* The body itself *)
-    F.pp_open_hvbox fmt 0;
     F.pp_open_hvbox fmt ctx.indent_incr;
     F.pp_print_space fmt ();
     (* Print the fields *)
@@ -242,8 +242,8 @@ let extract_type_def_struct_body (ctx : extraction_ctx) (fmt : F.formatter)
     List.iter (fun (fid, f) -> print_field fid f) fields;
     (* Close *)
     F.pp_close_box fmt ();
-    F.pp_print_string fmt "}";
-    F.pp_close_box fmt ())
+    F.pp_print_space fmt ();
+    F.pp_print_string fmt "}")
 
 let extract_type_def_enum_body (ctx : extraction_ctx) (fmt : F.formatter)
     (def : type_def) (def_name : string) (type_params : string list)
@@ -408,7 +408,9 @@ let extract_type_def (ctx : extraction_ctx) (fmt : F.formatter) (def : type_def)
         F.pp_print_string fmt pname;
         F.pp_print_space fmt ())
       def.type_params;
-    F.pp_print_string fmt " : Type0)");
+    F.pp_print_string fmt ":";
+    F.pp_print_space fmt ();
+    F.pp_print_string fmt "Type0)");
   (* Print the "=" *)
   F.pp_print_space fmt ();
   F.pp_print_string fmt "=";
-- 
cgit v1.2.3