diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-05-13 17:44:45 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-05-13 17:57:43 +0200 |
commit | bd0befffb80c3086e3b451456cec24f3a12ac1f0 (patch) | |
tree | 4cbf3f5189c2b74cab5841f2bc13b23801bbe8d8 /lib/pp.ml | |
parent | b679eae9d3588f6cb91be174ab80a64fb5c434a4 (diff) |
Dyn: simplify API introducing an Easy submodule
Now the casual Dyn user does not need to be a GADT guru
Diffstat (limited to 'lib/pp.ml')
-rw-r--r-- | lib/pp.ml | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -57,12 +57,8 @@ module Dyn = Dyn.Make(struct end) type t = Dyn.t type 'a key = 'a Dyn.tag let create = Dyn.create -let inj x k = Dyn.Dyn (k, x) -let prj : type a. t -> a key -> a option = fun dyn k -> - let Dyn.Dyn (k', x) = dyn in - match Dyn.eq k k' with - | None -> None - | Some CSig.Refl -> Some x +let inj = Dyn.Easy.inj +let prj = Dyn.Easy.prj end |