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

fix build on 4.02

This commit is contained in:
Jeremie Dimino 2016-08-15 10:20:41 +01:00
parent f630fa0afc
commit c6f3647a45
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop_complete.cppo.ml
View File

@ -432,7 +432,7 @@ let add_names_of_type decl acc =
let path_of_mty_alias = function let path_of_mty_alias = function
| Mty_alias (_, path) -> path | Mty_alias (_, path) -> path
| _ -> assert false | _ -> assert false
#else #elif OCAML_VERSION >= (4, 02, 0)
let path_of_mty_alias = function let path_of_mty_alias = function
| Mty_alias path -> path | Mty_alias path -> path
| _ -> assert false | _ -> assert false