summaryrefslogtreecommitdiff
path: root/parsing/q_constr.ml4
diff options
context:
space:
mode:
Diffstat (limited to 'parsing/q_constr.ml4')
-rw-r--r--parsing/q_constr.ml42
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/q_constr.ml4 b/parsing/q_constr.ml4
index 768bc45c..21c851df 100644
--- a/parsing/q_constr.ml4
+++ b/parsing/q_constr.ml4
@@ -73,7 +73,7 @@ EXTEND
| "0"
[ s = sort -> <:expr< Rawterm.RSort ($dloc$,s) >>
| id = ident -> <:expr< Rawterm.RVar ($dloc$,$id$) >>
- | "_" -> <:expr< Rawterm.RHole ($dloc$,QuestionMark) >>
+ | "_" -> <:expr< Rawterm.RHole ($dloc$, QuestionMark False) >>
| "?"; id = ident -> <:expr< Rawterm.RPatVar($dloc$,(False,$id$)) >>
| "{"; c1 = constr; "}"; "+"; "{"; c2 = constr; "}" ->
apply_ref <:expr< coq_sumbool_ref >> [c1;c2]