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

Minimal update to make utop build on OCaml 4.07.0+rc1 (#238)

This commit is contained in:
Hezekiah M. Carty 2018-06-22 17:05:50 -06:00 committed by Jérémie Dimino
parent 1b4bd052c6
commit 0bee8c9297
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/lib/uTop_complete.ml
View File

@ -541,7 +541,13 @@ let list_global_names () =
| Env.Env_constraints (summary, _) ->
loop acc summary
#endif
#if OCAML_VERSION >= (4, 07, 0)
| Env.Env_copy_types (summary, _) ->
loop acc summary
| Env.Env_open(summary, _skip, path) ->
#else
| Env.Env_open(summary, path) ->
#endif
match try Some (Path_map.find path !local_names_by_path) with Not_found -> None with
| Some names ->
loop (String_set.union acc names) summary
@ -604,7 +610,13 @@ let list_global_fields () =
| Env.Env_constraints (summary, _) ->
loop acc summary
#endif
#if OCAML_VERSION >= (4, 07, 0)
| Env.Env_copy_types (summary, _) ->
loop acc summary
| Env.Env_open(summary, _skip, path) ->
#else
| Env.Env_open(summary, path) ->
#endif
match try Some (Path_map.find path !local_fields_by_path) with Not_found -> None with
| Some fields ->
loop (String_set.union acc fields) summary