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

fix compatibility with 4.03

This commit is contained in:
Jeremie Dimino 2016-03-02 17:38:10 +00:00
parent 5bfd1ba632
commit eff7153821
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/lib/uTop_main.cppo.ml
View File

@ -312,9 +312,12 @@ let rec map_items unwrap wrap items =
| Outcometree.Osig_exception (name, _) | Outcometree.Osig_exception (name, _)
#endif #endif
| Outcometree.Osig_modtype (name, _) | Outcometree.Osig_modtype (name, _)
#if OCAML_VERSION < (4, 03, 0)
| Outcometree.Osig_value (name, _, _) -> | Outcometree.Osig_value (name, _, _) ->
(name, Outcometree.Orec_not) (name, Outcometree.Orec_not)
#if OCAML_VERSION >= (4, 03, 0) #else
| Outcometree.Osig_value { oval_name = name; _ } ->
(name, Outcometree.Orec_not)
| Outcometree.Osig_ellipsis -> ("", Outcometree.Orec_not) | Outcometree.Osig_ellipsis -> ("", Outcometree.Orec_not)
#endif #endif
in in