From eee7b2318a73cbdfc8a8936aba65e1175b014d00 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 16 Sep 2015 14:03:53 +0200
Subject: [PATCH] add `CCTrie` to benchmarks

---
 benchs/run_benchs.ml | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/benchs/run_benchs.ml b/benchs/run_benchs.ml
index ebd7912a..88bbdad7 100644
--- a/benchs/run_benchs.ml
+++ b/benchs/run_benchs.ml
@@ -311,6 +311,15 @@ module Tbl = struct
     end in
     (module U : INT_MUT)
 
+  let trie : (module MUT with type key = string) =
+    let module T = struct
+      let name = "trie(string)"
+      include CCTrie.String
+      let find = find_exn
+    end in
+    let module U = MUT_OF_IMMUT(T) in
+    (module U)
+
   let hashtrie : type a. a key_type -> (module MUT with type key = a)
   = fun k ->
     let (module K), name = arg_make k in
@@ -351,6 +360,7 @@ module Tbl = struct
     ; wbt Str
     ; hashtrie Str
     ; hamt Str
+    ; trie
     ]
 
   let bench_add n =