Avoid matching explicitly on extension

Signed-off-by: Nicolás Ojeda Bär <[email protected]>
ocaml · Feb 17, 2020 · a5ad9ab · a5ad9ab
1 parent 695f4b6
commit a5ad9ab
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/dune/exe.ml b/src/dune/exe.ml
@@ -36,9 +36,8 @@ module Linkage = struct
 
   let js = { mode = Byte; ext = ".bc.js"; flags = [] }
 
-  let is_plugin = function
-    | { ext = ".cma" | ".cmxs"; _ } -> true
-    | _ -> false
+  let is_plugin t =
+    List.mem t.ext ~set:(List.map Mode.plugin_ext Mode.all)
 
   let c_flags = [ "-output-obj" ]