From 0e2ed1d6ba1050c2220a936c357865fc9bd9b63b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ulysse=20G=C3=A9rard?= Date: Wed, 13 Jan 2021 14:50:58 +0100 Subject: [PATCH] Use match instead of assoc list MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Ulysse Gérard --- src/dune_rules/cxx_flags.ml | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/dune_rules/cxx_flags.ml b/src/dune_rules/cxx_flags.ml index 934a86ffaae..3b2844e2da8 100644 --- a/src/dune_rules/cxx_flags.ml +++ b/src/dune_rules/cxx_flags.ml @@ -7,11 +7,11 @@ type ccomp_type = | Clang | Other of string -let base_cxx_flags = - [ (Gcc, [ "-x"; "c++"; "-lstdc++"; "-shared-libgcc" ]) - ; (Clang, [ "-x"; "c++" ]) - ; (Msvc, [ "/TP" ]) - ] +let base_cxx_flags = function + | Gcc -> [ "-x"; "c++"; "-lstdc++"; "-shared-libgcc" ] + | Clang -> [ "-x"; "c++" ] + | Msvc -> [ "/TP" ] + | _ -> [] let preprocessed_filename = "ccomp" @@ -42,4 +42,4 @@ let get_flags dir = let open Build.O in let+ ccomp_type = ccomp_type dir in check_warn ccomp_type; - List.assoc_opt ccomp_type base_cxx_flags |> Option.value ~default:[] + base_cxx_flags ccomp_type