indent

Author: cristianoc

jscomp/ml/typedecl.ml

@@ -396,16 +396,16 @@ let transl_declaration env sdecl id =
         let tcstrs, cstrs = List.split (List.map make_cstr scstrs) in
           Ttype_variant tcstrs, Type_variant cstrs
       | Ptype_record lbls ->
-        let hasOptional attrs = Ext_list.exists attrs (fun ({txt },_) -> txt = "optional") in
-        let optionalLabels =
-            Ext_list.filter_map lbls
-            (fun lbl -> if hasOptional lbl.pld_attributes then Some lbl.pld_name.txt else None) in
+          let has_optional attrs = Ext_list.exists attrs (fun ({txt },_) -> txt = "optional") in
+          let optionalLabels =
+              Ext_list.filter_map lbls
+              (fun lbl -> if has_optional lbl.pld_attributes then Some lbl.pld_name.txt else None) in
           let lbls =
             if optionalLabels = [] then lbls
             else Ext_list.map lbls (fun lbl ->
               let typ = lbl.pld_type in
               let typ =
-                if hasOptional lbl.pld_attributes then
+                if has_optional lbl.pld_attributes then
                   {typ with ptyp_desc = Ptyp_constr ({txt = Lident "option"; loc=typ.ptyp_loc}, [typ])}
                 else typ in
               {lbl with  pld_type = typ }) in