unique requires double rev

mzp · Feb 15, 2013 · 7570f54 · 7570f54
1 parent cb77948
commit 7570f54
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/search.ml b/search.ml
@@ -166,12 +166,11 @@ let to_result (id, kind) =
 
 let raw_search s modules paths =
   init modules paths; 
-  sure (Searchid.search_string_type ~mode:`Exact) s
+  List.rev @@ ExtList.List.unique  @@ List.rev (* unique removes first appearances *)
+  @@ sure (Searchid.search_string_type ~mode:`Exact) s
   @ sure (Searchid.search_string_type ~mode:`Included) s
   @ sure Searchid.search_pattern_symbol s
 
 let search s modules paths =
-  List.rev 
-  @@ ExtList.List.unique 
-  @@ List.rev_map ~f:to_result 
+  List.map ~f:to_result 
   @@ raw_search s modules paths