Add Univ_map.singleton
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
3e2567d2c7
commit
0e6986c2f2
|
@ -71,3 +71,4 @@ let find_exn t key =
|
||||||
let eq = Key.eq key' key in
|
let eq = Key.eq key' key in
|
||||||
Eq.cast eq v
|
Eq.cast eq v
|
||||||
|
|
||||||
|
let singleton key v = Int.Map.singleton (Key.id key) (Binding.T (key, v))
|
||||||
|
|
|
@ -17,3 +17,4 @@ val add : t -> 'a Key.t -> 'a -> t
|
||||||
val remove : t -> 'a Key.t -> t
|
val remove : t -> 'a Key.t -> t
|
||||||
val find : t -> 'a Key.t -> 'a option
|
val find : t -> 'a Key.t -> 'a option
|
||||||
val find_exn : t -> 'a Key.t -> 'a
|
val find_exn : t -> 'a Key.t -> 'a
|
||||||
|
val singleton : 'a Key.t -> 'a -> t
|
||||||
|
|
Loading…
Reference in New Issue