Skip to content

Commit 18e2e49

Browse files
authored
Merge pull request #1147 from ppedrot/rm-tc-evd-hook
Adapt w.r.t. coq/coq#20278.
2 parents 7033a53 + 5c21ae8 commit 18e2e49

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

template-coq/src/constr_denoter.ml

+1-1
Original file line numberDiff line numberDiff line change
@@ -135,7 +135,7 @@ struct
135135
let unquote_evar env evm id args =
136136
if constr_equall id tfresh_evar_id then
137137
let evm, (tyev, s) = Evarutil.new_type_evar env evm Evd.univ_flexible_alg in
138-
let evm, ev = Evarutil.new_evar env evm tyev in
138+
let evm, ev = Evarutil.new_evar ~typeclass_candidate:false env evm tyev in
139139
evm, EConstr.Unsafe.to_constr ev
140140
else
141141
let id = unquote_nat id in

0 commit comments

Comments
 (0)