haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle module aliases for completion

This commit is contained in:
Jeremie Dimino 2014-07-30 13:49:59 +01:00
parent 8d35b32af0
commit 87b0ca1807
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/lib/uTop_complete.ml
View File

@ -462,6 +462,13 @@ let rec names_of_module_type = function
#endif #endif
| None -> String_set.empty | None -> String_set.empty
end end
#if ocaml_version >= (4, 02, 0)
| Mty_alias path -> begin
match lookup_env Env.find_module path !Toploop.toplevel_env with
| None -> String_set.empty
| Some { md_type = module_type } -> names_of_module_type module_type
end
#endif
| _ -> | _ ->
String_set.empty String_set.empty
@ -494,6 +501,13 @@ let rec fields_of_module_type = function
#endif #endif
| None -> String_set.empty | None -> String_set.empty
end end
#if ocaml_version >= (4, 02, 0)
| Mty_alias path -> begin
match lookup_env Env.find_module path !Toploop.toplevel_env with
| None -> String_set.empty
| Some { md_type = module_type } -> fields_of_module_type module_type
end
#endif
| _ -> | _ ->
String_set.empty String_set.empty