aboutsummaryrefslogtreecommitdiffhomepage
path: root/checker/univ.ml
diff options
context:
space:
mode:
Diffstat (limited to 'checker/univ.ml')
-rw-r--r--checker/univ.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/univ.ml b/checker/univ.ml
index a895021f0..323a373ec 100644
--- a/checker/univ.ml
+++ b/checker/univ.ml
@@ -432,7 +432,7 @@ struct
include Hashcons.Make(ExprHash)
let make =
- Hashcons.simple_hcons generate Level.hcons
+ Hashcons.simple_hcons generate hcons Level.hcons
let hash = ExprHash.hash
let uid = hash
let equal x y = x == y ||
@@ -1242,7 +1242,7 @@ struct
module HInstance = Hashcons.Make(HInstancestruct)
- let hcons = Hashcons.simple_hcons HInstance.generate Level.hcons
+ let hcons = Hashcons.simple_hcons HInstance.generate HInstance.hcons Level.hcons
let empty = hcons [||]