diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/typesupport.icl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl index 8bdd493..9ef6cf0 100644 --- a/frontend/typesupport.icl +++ b/frontend/typesupport.icl @@ -467,6 +467,7 @@ where TA_None -> build_attribute_environment appears_in_lifted_part (inc attr_group_index) max_attr_nr coercions attr_env attr_vars inequalities error + build_inequalities :: {#Int} Bool AttributeVar !CoercionTree {!CoercionTree} *{!TypeAttribute} [AttrInequality] -> (!Bool,!*{!TypeAttribute},![AttrInequality]) build_inequalities appears_in_lifted_part off_appears_in_lifted_part off_var (CT_Node dem_attr left right) coercions attr_env inequalities # (ok1, attr_env, inequalities) |