diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-12-05 12:53:20 +0100 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-12-05 13:38:14 +0100 |
commit | 895d34a264d9d90adfe4f0618c3bb0663dc01615 (patch) | |
tree | da8406b2fd882318c8264487596f2aca0e5f9f2a /lib/util.ml | |
parent | 8596423ed6345495ca5ec0aedb8a9a431bee2e5d (diff) |
Leveraging GADTs to provide a better Dyn API.
Diffstat (limited to 'lib/util.ml')
-rw-r--r-- | lib/util.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index a20dba0fc..b67539918 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -124,6 +124,7 @@ let delayed_force f = f () type ('a, 'b) union = ('a, 'b) CSig.union = Inl of 'a | Inr of 'b type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a +type ('a, 'b) eq = ('a, 'b) CSig.eq = Refl : ('a, 'a) eq let map_union f g = function | Inl a -> Inl (f a) |