From 0290aa975436f91dac386faa3cd5160da3bbd30c Mon Sep 17 00:00:00 2001 From: Jan Midtgaard Date: Wed, 9 Jul 2025 15:48:24 +0200 Subject: [PATCH] Use CCList.equal for backward compatibility --- tests/core/t_cbor.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/core/t_cbor.ml b/tests/core/t_cbor.ml index bf45f6c3..b1535a0f 100644 --- a/tests/core/t_cbor.ml +++ b/tests/core/t_cbor.ml @@ -110,9 +110,9 @@ let rec eq_c c c' = match c,c' with | `Float f, `Float f' -> Float.equal f f' | `Bytes s, `Bytes s' -> String.equal s s' | `Text t, `Text t' -> String.equal t t' - | `Array a, `Array a' -> List.equal eq_c a a' + | `Array a, `Array a' -> CCList.equal eq_c a a' | `Map m, `Map m' -> - List.equal (fun (t0,t1) (t0',t1') -> eq_c t0 t0' && eq_c t1 t1') m m' + CCList.equal (fun (t0,t1) (t0',t1') -> eq_c t0 t0' && eq_c t1 t1') m m' | `Tag (i,t), `Tag (i',t') -> Int.equal i i' && eq_c t t' | _ -> false;;