Merge remote-tracking branch 'origin/trunk' into tag-union-imitate-rust

compiler/gen_llvm/src/llvm/build_list.rs

@@ -899,6 +899,27 @@ pub fn list_concat<'a, 'ctx, 'env>(
     }
 }
 
+/// List.any : List elem, \(elem -> Bool) -> Bool
+pub fn list_any<'a, 'ctx, 'env>(
+    env: &Env<'a, 'ctx, 'env>,
+    roc_function_call: RocFunctionCall<'ctx>,
+    list: BasicValueEnum<'ctx>,
+    element_layout: &Layout<'a>,
+) -> BasicValueEnum<'ctx> {
+    call_bitcode_fn(
+        env,
+        &[
+            pass_list_cc(env, list),
+            roc_function_call.caller.into(),
+            pass_as_opaque(env, roc_function_call.data),
+            roc_function_call.inc_n_data.into(),
+            roc_function_call.data_is_owned.into(),
+            layout_width(env, element_layout),
+        ],
+        bitcode::LIST_ANY,
+    )
+}
+
 pub fn decrementing_elem_loop<'ctx, LoopFn>(
     builder: &Builder<'ctx>,
     ctx: &'ctx Context,