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

Fix 4.01 compatibility.

This commit is contained in:
Peter Zotov 2014-10-22 18:22:52 +04:00
parent 5261d02c25
commit 3fe804e340
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -398,8 +398,8 @@ let visible_modules () =
let field_name { ld_id = id } = Ident.name id let field_name { ld_id = id } = Ident.name id
let constructor_name { cd_id = id } = Ident.name id let constructor_name { cd_id = id } = Ident.name id
#else #else
let field_name (name, _, _) = name let field_name (id, _, _) = Ident.name id
let constructor_name (name, _) = name let constructor_name (id, _, _) = Ident.name id
#endif #endif
let add_fields_of_type decl acc = let add_fields_of_type decl acc =