diff options
author | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-10-16 13:53:05 +0200 |
---|---|---|
committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-10-16 13:53:05 +0200 |
commit | 82134deb1207e8954fe4e46d627d5f587101e2e8 (patch) | |
tree | 224f48705bd1c8f28511c2e99a4a3a43e2804b28 /kernel/univ.ml | |
parent | d7d414ee56f2ace81097d3ce72e7db53edeaeb0c (diff) |
Use type nonrec in some functor arguments.
Diffstat (limited to 'kernel/univ.ml')
-rw-r--r-- | kernel/univ.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/kernel/univ.ml b/kernel/univ.ml index bae782f5d..7fe4f8274 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -121,8 +121,7 @@ module Level = struct (** Hashcons on levels + their hash *) module Self = struct - type _t = t - type t = _t + type nonrec t = t type u = unit let eq x y = x.hash == y.hash && RawLevel.hequal x.data y.data let hash x = x.hash @@ -755,8 +754,7 @@ struct module HInstancestruct = struct - type _t = t - type t = _t + type nonrec t = t type u = Level.t -> Level.t let hashcons huniv a = |