apply the formatter, looks really nice

Author: bobzhang

jscomp/common/bs_loc.ml

@@ -35,8 +35,8 @@ let merge (l: t) (r : t) =
   if is_ghost l then r 
   else if is_ghost r then l 
   else match l,r with 
-  | {loc_start ; _}, {loc_end; _} (* TODO: improve*)
-    -> 
-    {loc_start ;loc_end; loc_ghost = false}
+    | {loc_start ; _}, {loc_end; _} (* TODO: improve*)
+      -> 
+      {loc_start ;loc_end; loc_ghost = false}
 
 (* let none = Location.none *)

jscomp/common/bs_version.ml

@@ -24,6 +24,5 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)    
 let version = "9.1.0"
 let header = 
-   "// Generated by ReScript, PLEASE EDIT WITH CARE"  
+  "// Generated by ReScript, PLEASE EDIT WITH CARE"  
 let package_name = ref "bs-platform"   
-    

jscomp/common/bs_warnings.ml

@@ -43,7 +43,6 @@ let warn_literal_overflow loc =
 
 let error_unescaped_delimiter loc txt = 
   Location.prerr_warning loc (Bs_uninterpreted_delimiters txt)
-  
 
 
-  
+

jscomp/common/ext_log.mli

@@ -30,12 +30,12 @@
 
 
 (** A Poor man's logging utility
-    
+
     Example:
     {[ 
-    err __LOC__ "xx"
+      err __LOC__ "xx"
     ]}
- *)
+*)
 
 
 
@@ -48,4 +48,4 @@ type 'a logging =  ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a
 val dwarn : 
   ?__POS__:(string * int * int *int) ->
   'a logging 
-  
+

jscomp/common/js_config.ml

@@ -39,7 +39,7 @@ let cross_module_inline = ref false
 
 let diagnose = ref false
 let get_diagnose () = 
-    !diagnose
+  !diagnose
 #if undefined BS_RELEASE_BUILD then
   || Sys.getenv_opt "RES_DEBUG_FILE" <> None
 #end

jscomp/common/js_config.mli

@@ -39,16 +39,16 @@ val no_version_header : bool ref
 *)
 
 (* val get_current_package_name_and_path : 
-  Js_packages_info.module_system -> 
-  Js_packages_info.info_query *)
+   Js_packages_info.module_system -> 
+   Js_packages_info.info_query *)
 
 
 (* val set_package_name : string -> unit  
-val get_package_name : unit -> string option *)
+   val get_package_name : unit -> string option *)
 
 (** cross module inline option *)
 val cross_module_inline : bool ref
-  
+
 (** diagnose option *)
 val diagnose : bool ref 
 val get_diagnose : unit -> bool 

jscomp/common/lam_methname.ml

@@ -24,38 +24,38 @@
 
 
 (**
-  {[
-    _open -> open 
-    _in -> in 
-    _MAX_LENGTH -> MAX_LENGTH
-    _Capital -> Capital 
-    
-    _open__ ->  _open
-    open__ -> open 
-    
-    _'x -> 'x 
+   {[
+     _open -> open 
+     _in -> in 
+   _MAX_LENGTH -> MAX_LENGTH
+     _Capital -> Capital 
 
-    _Capital__ -> _Capital 
-    _MAX__ -> _MAX
-    __ -> __ 
-    __x -> __x 
-    ___ -> _     
-    ____ -> __
-    _ -> _  (* error *)   
-    
+     _open__ ->  _open
+     open__ -> open 
+
+     _'x -> 'x 
+
+       _Capital__ -> _Capital 
+       _MAX__ -> _MAX
+       __ -> __ 
+       __x -> __x 
+       ___ -> _     
+       ____ -> __
+       _ -> _  (* error *)   
 
-  ]}
-  First we scan '__' from end to start, 
-  If found, discard it.
-  Otherwise, check if it is [_ + keyword] or followed by capital letter,
-  If so, discard [_].
 
-  Limitations: user can not have [_Capital__, _Capital__other] to 
-  make it all compile to [Capital].
-  Keyword is fine [open__, open__other].
-  So we loose polymorphism over capital letter. 
-  It is okay, otherwise, if [_Captial__] is interpreted as [Capital], then
-  there is no way to express [_Capital]
+   ]}
+   First we scan '__' from end to start, 
+   If found, discard it.
+   Otherwise, check if it is [_ + keyword] or followed by capital letter,
+   If so, discard [_].
+
+   Limitations: user can not have [_Capital__, _Capital__other] to 
+   make it all compile to [Capital].
+   Keyword is fine [open__, open__other].
+   So we loose polymorphism over capital letter. 
+   It is okay, otherwise, if [_Captial__] is interpreted as [Capital], then
+   there is no way to express [_Capital]
 *)
 
 (* Copied from [ocaml/parsing/lexer.mll] *)
@@ -95,7 +95,7 @@ let key_words = Hash_set_string.of_array [|
     "of";
     "open";
     "or";
-(*  "parser", PARSER; *)
+    (*  "parser", PARSER; *)
     "private";
     "rec";
     "sig";
@@ -118,14 +118,14 @@ let key_words = Hash_set_string.of_array [|
     "lsl";
     "lsr";
     "asr";
-|]
+  |]
 let double_underscore = "__"
 
 (*https://caml.inria.fr/pub/docs/manual-ocaml/lex.html
-{[
+  {[
 
-  label-name	::=	 lowercase-ident 
-]}
+    label-name	::=	 lowercase-ident 
+  ]}
 *)
 let valid_start_char x =
   match x with 
@@ -139,8 +139,8 @@ let translate name =
     if name.[0] = '_' then  begin 
       let try_key_word = (String.sub name 1 (name_len - 1)) in 
       if name_len > 1 && 
-        (not (valid_start_char try_key_word.[0])
-        || Hash_set_string.mem key_words try_key_word)  then 
+         (not (valid_start_char try_key_word.[0])
+          || Hash_set_string.mem key_words try_key_word)  then 
         try_key_word
       else 
         name 

jscomp/common/ml_binary.mli

@@ -25,8 +25,8 @@
 
 
 (* This file was used to read reason ast
-  and part of parsing binary ast
- *)
+   and part of parsing binary ast
+*)
 type _ kind = 
   | Ml : Parsetree.structure kind 
   | Mli : Parsetree.signature kind
@@ -35,7 +35,7 @@ type _ kind =
 val read_ast : 'a kind -> in_channel -> 'a 
 
 val write_ast :
-   'a kind -> string -> 'a -> out_channel -> unit
+  'a kind -> string -> 'a -> out_channel -> unit
 
 val magic_of_kind : 'a kind -> string   
 

jscomp/core/bs_conditional_initial.mli

@@ -25,9 +25,9 @@
 (** This function set up built in compile time variables used in 
     conditional compilation so that 
     {[
-        #if  BS then 
-        #elif .. then 
-        #end
+      #if  BS then 
+      #elif .. then 
+      #end
     ]}
     Is understood, also make sure the playground do the same initialization. 
 *)

jscomp/depends/binary_ast.mli

@@ -50,7 +50,7 @@ val magic_sep_char : char
 
    Use case cat - | fan -printer -impl -
    redirect the standard input to fan
- *)
+*)
 val write_ast : 
   sourcefile:string -> 
   output:string -> 

jscomp/depends/bspack_ast_extract.mli

@@ -72,7 +72,7 @@ val build_queue :
   ('b, 'c) t Map_string.t ->
   (Format.formatter -> string -> string -> 'b -> unit) ->
   (Format.formatter -> string -> string -> 'c -> unit) -> unit
-  
+
 val handle_queue :
   string Queue.t ->
   ('a, 'b) t Map_string.t ->

jscomp/main/bsb_helper_main.mli

@@ -23,13 +23,13 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 
- (** Used to generate .d file, for example 
-  {[
-    bsb_helper.exe -g 0 -MD  src/hi/hello.ml
-  ]}
-  It will read the cache file and generate the corresponding
-     [.d] file. This [.d] file will be used as attribute [depfile]
-  whether we use namespace or not, the filename of [.mlast], [.d] 
-  should be kept the same, we only need change the name of [.cm*]
-  and the contents of filename in [.d]
- *)
+(** Used to generate .d file, for example 
+    {[
+      bsb_helper.exe -g 0 -MD  src/hi/hello.ml
+    ]}
+    It will read the cache file and generate the corresponding
+    [.d] file. This [.d] file will be used as attribute [depfile]
+    whether we use namespace or not, the filename of [.mlast], [.d] 
+    should be kept the same, we only need change the name of [.cm*]
+    and the contents of filename in [.d]
+*)

jscomp/main/bspack_main.mli

@@ -34,4 +34,4 @@ val read_lines : string -> string  -> string list
      Filename.concat "/bb/x/" "/bb/x/";;
    ]}
 *)
-  
+