summaryrefslogtreecommitdiff
path: root/language
diff options
context:
space:
mode:
Diffstat (limited to 'language')
-rw-r--r--language/l2.lem1
-rw-r--r--language/l2.ml1
-rw-r--r--language/l2.ott1
3 files changed, 3 insertions, 0 deletions
diff --git a/language/l2.lem b/language/l2.lem
index a9bba453..27af418a 100644
--- a/language/l2.lem
+++ b/language/l2.lem
@@ -403,6 +403,7 @@ type type_def_aux 'a = (* Type definition body *)
type default_spec_aux 'a = (* Default kinding or typing assumption *)
| DT_kind of base_kind * kid
+ | DT_order of order
| DT_typ of typschm * id
diff --git a/language/l2.ml b/language/l2.ml
index a00e2f84..ac7305a4 100644
--- a/language/l2.ml
+++ b/language/l2.ml
@@ -427,6 +427,7 @@ type
type
'a default_spec_aux = (* Default kinding or typing assumption *)
DT_kind of base_kind * kid
+ | DT_order of order
| DT_typ of typschm * id
diff --git a/language/l2.ott b/language/l2.ott
index 7a50877b..4ee9cd65 100644
--- a/language/l2.ott
+++ b/language/l2.ott
@@ -805,6 +805,7 @@ default_spec :: 'DT_' ::=
{{ com Default kinding or typing assumption }}
{{ aux _ l }} {{ auxparam 'a }}
| default base_kind kid :: :: kind
+ | default Order order :: :: order
| default typschm id :: :: typ
% The intended semantics of these is that if an id in binding position
% doesn't have a kind or type annotation, then we look through the