camlspotter avatar camlspotter committed a9f47e7

open warning fixed

Comments (0)

Files changed (1)

       in
       v :: loop data
 
-let lookup' proj1 proj2 lid env =
+let lookup_all proj1 proj2 lid env =
   match lid with
     Lident s -> 
       let all = find_all_overloaded (Ident.find_data_name s (proj1 env)) in
       raise Not_found
 
 let lookup_values =
-  lookup' (fun env -> env.values) (fun sc -> sc.comp_values)
+  lookup_all (fun env -> env.values) (fun sc -> sc.comp_values)
 let lookup_value =
   lookup (fun env -> env.values) (fun sc -> sc.comp_values)
 let lookup_annot id e =
             store_exception ~opened:root (Ident.hide id) p
                             (Subst.exception_declaration sub decl) env
         | Tsig_module(id, mty, _) ->
-            let root' = p in
             begin match !mtype_scrape env mty with
               | Tmty_signature sg' -> 
                   let env' = store_module ~opened:root (Ident.hide id) p (Subst.modtype sub mty) env in
-                  open_signature_overload Location.none root' sg' env'
+                  open_signature_overload Location.none root sg' env'
               | _ -> 
                   store_module ~opened:root (Ident.hide id) p (Subst.modtype sub mty) env
             end
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.