1. camlspotter
  2. ocamlspot

Source

ocamlspot / spotfile.ml

Diff from to

File spotfile.ml

     raise e
 
 module Make(Spotconfig : Spotconfig_intf.S) = struct
-  open Abstraction
+  (* open Abstraction *)
 
   module Load : sig
     exception Old_cmt of string (* cmt *) * string (* source *)
             List.fold_left Tree.add Tree.empty rannots
           end in
           (* CR jfuruse: it is almost the same as id_def_regions_list *)
-          let flat = List.filter_map (fun (loc, annot) -> match annot with
+          let flat = List.filter_map (fun (_loc, annot) -> match annot with
               | Annot.Str sitem -> Some sitem
               | _ -> None) loc_annots
           in