Release coccinelle-0.2.1-rc1

[bpt/coccinelle.git] / commons / ocamlextra / suffix_tree_ext.ml

diff --git a/commons/ocamlextra/suffix_tree_ext.ml b/commons/ocamlextra/suffix_tree_ext.ml
index fd5b8c8..4a363ad 100644 (file)
--- a/commons/ocamlextra/suffix_tree_ext.ml
+++ b/commons/ocamlextra/suffix_tree_ext.ml
@@ -137,7 +137,7 @@ let add_link root pred_opt explicit =
     | Some n -> (*if n.link = None then*) n.link <- explicit
     | None -> ()
 
-(* ------------ 
+(* ------------
    suffix links
    ------------ *)
 
@@ -218,8 +218,8 @@ let make : string list -> t =
     st
 
 
-let add (s: string) (seqar,root : t) = 
-  let k = DynArray.length seqar in 
+let add (s: string) (seqar,root : t) =
+  let k = DynArray.length seqar in
   DynArray.add seqar s;
   let st = (seqar, root) in
   let seq = s in
@@ -276,7 +276,7 @@ and implicit_node_aux (seqar,node) implicit =
     if !a < l
     then raise Not_found
     else implicit_node_aux (seqar,child) (subseq_sub implicit !a (w - !a))
-  else (node,implicit,child) 
+  else (node,implicit,child)
 
 (*
 let rec synthesized (seqar,root : t) (f : 'a list -> node -> 'a) =
@@ -328,7 +328,7 @@ let exact_matches : t -> string -> (int * int) list =
 
 
 
-let contained_string gst word = 
+let contained_string gst word =
   List.map (fun (i,j) -> DynArray.get (fst gst) i)  (exact_matches gst word)