Markus Mottl avatar Markus Mottl committed 7beeb74

Fixed broken indentation

Comments (0)

Files changed (1)

base/sexplib/syntax/pa_sexp_conv.ml

       | <:ctyp@loc< $lid:name$ : $tp$ >> ->
           let patt = mk_rec_patt loc patt name in
           let vname = <:expr@loc< $lid:"v_" ^ name$ >> in
-          let cnv_expr = unroll_cnv_fp loc vname  (sexp_of_type tp) in
+          let cnv_expr = unroll_cnv_fp loc vname (sexp_of_type tp) in
           let expr =
             <:expr@loc<
               let arg = $cnv_expr$ in
             let fld = <:expr@loc< $lid:nm ^ "_field"$.val >> in
             let new_bi_lst, new_good_patts =
               match tp with
-              | <:ctyp@loc< sexp_bool >> |  <:ctyp@loc< mutable sexp_bool >>
+              | <:ctyp@loc< sexp_bool >> | <:ctyp@loc< mutable sexp_bool >>
               | <:ctyp@loc< sexp_option $_$ >>
               | <:ctyp@loc< mutable sexp_option $_$ >>
               | <:ctyp@loc< sexp_list $_$ >>
     let body =
       match fp with
       | `Fun fun_expr -> <:expr@loc< $fun_expr$ sexp >>
-      | `Match matchings -> <:expr@loc< match sexp with [$matchings$]  >>
+      | `Match matchings -> <:expr@loc< match sexp with [$matchings$] >>
     in
     let full_type_name =
       sprintf "%s line %i: %s"
     Syntax.Quotation.add "of_sexp" Syntax.Quotation.DynAst.expr_tag
       of_sexp_quote
 
- let sexp_of_quote loc _loc_name_opt cnt_str =
-   Pa_type_conv.set_conv_path_if_not_set loc;
-   let ctyp = Gram.parse_string Syntax.ctyp_quot loc cnt_str in
-   Generate_sexp_of.mk_cnv_expr ctyp
+  let sexp_of_quote loc _loc_name_opt cnt_str =
+    Pa_type_conv.set_conv_path_if_not_set loc;
+    let ctyp = Gram.parse_string Syntax.ctyp_quot loc cnt_str in
+    Generate_sexp_of.mk_cnv_expr ctyp
 
   let () =
     Syntax.Quotation.add "sexp_of" Syntax.Quotation.DynAst.expr_tag
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.