Make Interned generative again

Signed-off-by: Rudi Grinberg <rudi.grinberg@gmail.com>
This commit is contained in:
Rudi Grinberg 2018-05-26 17:14:00 +07:00
parent 1e3b90c1d6
commit e5f873da15
5 changed files with 5 additions and 5 deletions

View File

@ -4,7 +4,7 @@ module Name = struct
include Interned.Make(struct
let initial_size = 16
let resize_policy = Interned.Conservative
end)
end)()
let of_string = make

View File

@ -31,7 +31,7 @@ let new_size ~next ~size = function
module Make(R : sig
val resize_policy : resize_policy
val initial_size : int
end)
end)()
= struct
type t = int

View File

@ -39,4 +39,4 @@ type resize_policy = Conservative | Greedy
module Make(R : sig
val initial_size : int
val resize_policy : resize_policy
end) : S
end)() : S

View File

@ -3,4 +3,4 @@ open Stdune
include Interned.Make(struct
let initial_size = 16
let resize_policy = Interned.Conservative
end)
end)()

View File

@ -3,7 +3,7 @@ open Stdune
include Interned.Make(struct
let initial_size = 256
let resize_policy = Interned.Conservative
end)
end)()
let ppx_driver = make "ppx_driver"
let mt = make "mt"