clean up spaces and tabs

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9547 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 11 insertions, 11 deletions

diff --git a/ocamldoc/odoc_print.ml b/ocamldoc/odoc_print.ml
index 1aa9a5dcec..5cc8e038c7 100644
--- a/ocamldoc/odoc_print.ml
+++ b/ocamldoc/odoc_print.ml
@@ -20,14 +20,14 @@ let new_fmt () =
     pp_print_flush fmt ();
     let s = Buffer.contents buf in
     Buffer.reset buf ;
-    s 
+    s
   in
   (fmt, flush)
 
 let (type_fmt, flush_type_fmt) = new_fmt ()
 let _ =
-  let (out, flush, outnewline, outspace) = 
-    pp_get_all_formatter_output_functions type_fmt () 
+  let (out, flush, outnewline, outspace) =
+    pp_get_all_formatter_output_functions type_fmt ()
   in
   pp_set_all_formatter_output_functions type_fmt
     ~out ~flush
@@ -56,12 +56,12 @@ let simpl_module_type ?code t =
   let rec iter t =
     match t with
       Types.Tmty_ident p -> t
-    | Types.Tmty_signature _ -> 
-	(
-	 match code with
-	   None -> Types.Tmty_signature []
-	 | Some s -> raise (Use_code s)
-	)
+    | Types.Tmty_signature _ ->
+        (
+         match code with
+           None -> Types.Tmty_signature []
+         | Some s -> raise (Use_code s)
+        )
     | Types.Tmty_functor (id, mt1, mt2) ->
         Types.Tmty_functor (id, iter mt1, iter mt2)
   in
@@ -85,7 +85,7 @@ let simpl_class_type t =
         (* on vire les vals et methods pour ne pas qu'elles soient imprimées
            quand on affichera le type *)
         let tnil = { Types.desc = Types.Tnil ; Types.level = 0; Types.id = 0 } in
-        Types.Tcty_signature { Types.cty_self = { cs.Types.cty_self with 
+        Types.Tcty_signature { Types.cty_self = { cs.Types.cty_self with
                                                   Types.desc = Types.Tobject (tnil, ref None) };
                                Types.cty_vars = Types.Vars.empty ;
                                Types.cty_concr = Types.Concr.empty ;
@@ -97,7 +97,7 @@ let simpl_class_type t =
   in
   iter t
 
-let string_of_class_type ?(complete=false) t = 
+let string_of_class_type ?(complete=false) t =
   let t2 = if complete then t else simpl_class_type t in
   (* A VOIR : ma propre version de Printtyp.class_type pour ne pas faire reset_names *)
   Printtyp.class_type modtype_fmt t2;