aboutsummaryrefslogtreecommitdiff
path: root/interp
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-04-14 12:25:24 +0200
committerPierre-Marie Pédrot2020-04-14 12:25:24 +0200
commit7bfdd65398139398a6495fb97ed1ee9383f1606d (patch)
treec0792b01bc31d185258ba4637693d4799a936621 /interp
parentb26d17a6a76b6758d0f22eaa025b1c31b474809f (diff)
parentee64a71f5e071b7fa0495847388c19d83bc5c9bd (diff)
Merge PR #11978: Close #11935: section variables do not have universe instances.
Reviewed-by: ppedrot
Diffstat (limited to 'interp')
-rw-r--r--interp/constrintern.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 905d9f1e5b..45255609e0 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -989,7 +989,7 @@ let string_of_ty = function
| Variable -> "var"
let gvar (loc, id) us = match us with
-| None -> DAst.make ?loc @@ GVar id
+| None | Some [] -> DAst.make ?loc @@ GVar id
| Some _ ->
user_err ?loc (str "Variable " ++ Id.print id ++
str " cannot have a universe instance")