Commits

camlspotter  committed c525242

indentation

  • Participants
  • Parent commits 91cf83f
  • Branches 4.01.0.2.2.0

Comments (0)

Files changed (1)

     | Str_item          of Abstraction.structure_item
     | Module            of Abstraction.module_expr
     | Functor_parameter of Ident.t
-    | Non_expansive     of bool
+    | Non_expansive     of bool (* CR jfuruse: not used *)
 
   let _equal t1 t2 = match t1, t2 with
     | Type (t1, _, _), Type (t2, _, _) -> t1 == t2
   let summary ppf = function
     | Type (_typ, _env, at) ->
         (* CR jfuruse: not fancy having @. *)
-	fprintf ppf "Type: ...@ ";
-	fprintf ppf "XType: ...@ ";
+        fprintf ppf "Type: ...@ ";
+        fprintf ppf "XType: ...@ ";
         fprintf ppf "At: %s" (string_of_at at)
     | Mod_type _mty ->
-	fprintf ppf "Type: ...@ ";
-	fprintf ppf "XType: ..."
+        fprintf ppf "Type: ...@ ";
+        fprintf ppf "XType: ..."
     | Str_item _str ->
-	fprintf ppf "Str_item: ..."
+        fprintf ppf "Str_item: ..."
     | Use (use, path) ->
-	fprintf ppf "Use: %s, %s"
-	  (String.capitalize (Kind.name use)) (Path.name path)
+        fprintf ppf "Use: %s, %s"
+          (String.capitalize (Kind.name use)) (Path.name path)
     | Module _mexp ->
 	fprintf ppf "Module: ..."
     | Functor_parameter id ->