WIP

Author: hhugo

compiler/lib/warning.ml

@@ -20,7 +20,13 @@ type t =
   | `Free_variables_in_primitives
   ]
 
-module StringTable = Hashtbl.Make (String)
+module StringTable = Hashtbl.Make (struct
+  type t = string
+
+  let equal = String.equal
+
+  let hash = Hashtbl.hash
+end)
 
 module Table = Hashtbl.Make (struct
   type nonrec t = t