6 files changed, 6 insertions, 6 deletions
diff --git a/plugins/extraction/extraction.ml b/plugins/extraction/extraction.ml
index ffaefd5e38..3468e8a360 100644
--- a/plugins/extraction/extraction.ml
+++ b/plugins/extraction/extraction.ml
@@ -620,7 +620,7 @@ and extract_cst_app env mle mlt kn args =
 	else mla
       with _ -> mla
     else mla
-  in 
+  in
   (* Different situations depending of the number of arguments: *)
   if ls = 0 then put_magic_if magic2 head
   else if List.mem Keep s then
diff --git a/plugins/extraction/g_extraction.ml4 b/plugins/extraction/g_extraction.ml4
index 2b561616b4..60a2e91a2f 100644
--- a/plugins/extraction/g_extraction.ml4
+++ b/plugins/extraction/g_extraction.ml4
@@ -28,7 +28,7 @@ open Table
 open Extract_env
 
 let pr_language = function
-  | Ocaml -> str "Ocaml" 
+  | Ocaml -> str "Ocaml"
   | Haskell -> str "Haskell"
   | Scheme -> str "Scheme"
 
diff --git a/plugins/extraction/haskell.ml b/plugins/extraction/haskell.ml
index 6403e7bbe9..9d45c08b7e 100644
--- a/plugins/extraction/haskell.ml
+++ b/plugins/extraction/haskell.ml
@@ -300,7 +300,7 @@ let pp_decl = function
       else
 	let e = pp_global Term r in
 	e ++ str " :: " ++ pp_type false [] t ++ fnl () ++
-	  if is_custom r then 
+	  if is_custom r then
 	    hov 0 (e ++ str " = " ++ str (find_custom r) ++ fnl2 ())
 	  else
 	    hov 0 (pp_function (empty_env ()) e a ++ fnl2 ())
diff --git a/plugins/extraction/miniml.mli b/plugins/extraction/miniml.mli
index 12ca9ad757..55231d766b 100644
--- a/plugins/extraction/miniml.mli
+++ b/plugins/extraction/miniml.mli
@@ -85,7 +85,7 @@ type equiv =
 
 type ml_ind = {
   ind_info : inductive_info;
-  ind_nparams : int; 
+  ind_nparams : int;
   ind_packets : ml_ind_packet array;
   ind_equiv : equiv
 }
diff --git a/plugins/extraction/modutil.ml b/plugins/extraction/modutil.ml
index 0394ea4b74..1b1a39770d 100644
--- a/plugins/extraction/modutil.ml
+++ b/plugins/extraction/modutil.ml
@@ -115,7 +115,7 @@ let decl_iter_references do_term do_cons do_type =
     | Dind (kn,ind) -> ind_iter_references do_term do_cons do_type kn ind
     | Dtype (r,_,t) -> do_type r; type_iter t
     | Dterm (r,a,t) -> do_term r; ast_iter a; type_iter t
-    | Dfix(rv,c,t) -> 
+    | Dfix(rv,c,t) ->
 	Array.iter do_term rv; Array.iter ast_iter c; Array.iter type_iter t
 
 let spec_iter_references do_term do_cons do_type = function
diff --git a/plugins/extraction/scheme.ml b/plugins/extraction/scheme.ml
index eaa47f5f92..50339d473d 100644
--- a/plugins/extraction/scheme.ml
+++ b/plugins/extraction/scheme.ml
@@ -98,7 +98,7 @@ let rec pp_expr env args =
 	if i = Coinductive then paren (str "delay " ++ st) else st
     | MLcase ((i,_),t, pv) ->
 	let e =
-	  if i <> Coinductive then pp_expr env [] t 
+	  if i <> Coinductive then pp_expr env [] t
 	  else paren (str "force" ++ spc () ++ pp_expr env [] t)
 	in
 	apply (v 3 (paren (str "match " ++ e ++ fnl () ++ pp_pat env pv)))