From 440ef6ca455f4e68033d4a4f3b82ff15996aa85d Mon Sep 17 00:00:00 2001 From: Jon Ludlam Date: Mon, 8 Feb 2021 17:30:48 +0000 Subject: [PATCH] Fix older OCamls Signed-off-by: Jon Ludlam --- src/loader/ident_env.cppo.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/loader/ident_env.cppo.ml b/src/loader/ident_env.cppo.ml index 52c9231a73..0017dfc8cd 100644 --- a/src/loader/ident_env.cppo.ml +++ b/src/loader/ident_env.cppo.ml @@ -184,14 +184,14 @@ let extract_signature_tree_item item = | Some id -> `Module (id, false) :: items | None -> items) mds [] - | Tsig_value {val_id; _} -> - [`Value (val_id, false)] #else | Tsig_module { md_id; _ } -> [`Module (md_id, false)] | Tsig_recmodule mds -> List.map (fun md -> `Module (md.md_id, false)) mds #endif + | Tsig_value {val_id; _} -> + [`Value (val_id, false)] | Tsig_modtype mtd -> [`ModuleType (mtd.mtd_id, false)] | Tsig_include incl ->