Browse Source

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
```
João Matos 10 months ago
parent
commit
b989a957d2
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/optimization/dce.ml

+ 1 - 1
src/optimization/dce.ml

@@ -87,7 +87,7 @@ let overrides_extern_field cf c =
 	loop c cf
 	loop c cf
 
 
 let is_std_file dce file =
 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]
 let keep_metas = [Meta.Keep;Meta.Expose]