From 998e1cac2fc23d21a2d3a2073b3fa09fe7c2a067 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Nicol=C3=A1s=20Ojeda=20B=C3=A4r?= Date: Mon, 22 Jul 2019 17:05:32 +0200 Subject: [PATCH] Fix inline_tests MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Nicolás Ojeda Bär --- src/inline_tests.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/inline_tests.ml b/src/inline_tests.ml index 9fae2044951..6bcc993ecab 100644 --- a/src/inline_tests.ml +++ b/src/inline_tests.ml @@ -302,12 +302,12 @@ include Sub_system.Register_end_point( then Mode_conf.Set.add info.modes Byte else info.modes in - List.filter_map (Mode_conf.Set.to_list modes) ~f:(fun (mode : Mode_conf.t) -> + List.map (Mode_conf.Set.to_list modes) ~f:(fun (mode : Mode_conf.t) -> match mode with - | Native -> Some Exe.Linkage.native - | Best -> Some (Exe.Linkage.native_or_custom (Super_context.context sctx)) - | Byte -> Some Exe.Linkage.byte - | Javascript -> None + | Native -> Exe.Linkage.native + | Best -> Exe.Linkage.native_or_custom (Super_context.context sctx) + | Byte -> Exe.Linkage.byte + | Javascript -> Exe.Linkage.js ) in Exe.build_and_link cctx