Tweak

mbarbin · Feb 19, 2024 · ef44da3 · ef44da3
1 parent ad7dca0
commit ef44da3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/provider.ml b/src/provider.ml
@@ -64,7 +64,9 @@ module Interface = struct
     in
     match classes with
     | [] -> [||]
-    | hd :: tl -> Array.of_list (hd :: hd :: tl)
+    | hd :: _ ->
+      (* We initialize the cache arbitrarily with the left most class. *)
+      Array.of_list (hd :: classes)
   ;;
 
   let same_class_uids : type a tags1 tags2. (a, tags1) t -> (a, tags2) t -> bool =