From 1ce738c17e6982ecedb2e5b9ba0f0f6fcbecc064 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jo=C3=A3o=20Matos?= Date: Sat, 21 Sep 2024 22:05:44 +0100 Subject: [PATCH] Fix compilation error in `dce.ml`. (#11779) This fixes the following compilation error: ```ocaml File "src/optimization/dce.ml", line 90, characters 13-48: 90 | List.exists (ExtString.String.starts_with file) dce.std_dirs ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Error: This expression has type prefix:string -> bool but an expression was expected of type 'a -> bool make: *** [Makefile:81: haxe] Error 1 ``` By replacing: ```ocaml let is_std_file dce file = List.exists (ExtString.String.starts_with file) dce.std_dirs ``` with: ```ocaml let is_std_file dce file = List.exists (fun dir -> ExtString.String.starts_with file dir) dce.std_dirs ``` --- src/optimization/dce.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/optimization/dce.ml b/src/optimization/dce.ml index 7da5e99d695..d1bb998a237 100644 --- a/src/optimization/dce.ml +++ b/src/optimization/dce.ml @@ -87,7 +87,7 @@ let overrides_extern_field cf c = loop c cf let is_std_file dce file = - List.exists (ExtString.String.starts_with file) dce.std_dirs + List.exists (fun dir -> ExtString.String.starts_with file dir) dce.std_dirs let keep_metas = [Meta.Keep;Meta.Expose]