Commit 8ce28293 authored by John van Groningen's avatar John van Groningen
Browse files

in simplifyAndCheckTypeApplication add alternative for TempQV / TempQCV,

this is used if a type synonym is expanded that creates a type application
of an existential variable,
for example :: T a b :== a (T2 b), and a is existential
parent 26503f96
...@@ -28,6 +28,8 @@ simplifyAndCheckTypeApplication (TV tv) type_args ...@@ -28,6 +28,8 @@ simplifyAndCheckTypeApplication (TV tv) type_args
= (True, CV tv :@: type_args) = (True, CV tv :@: type_args)
simplifyAndCheckTypeApplication (TempV i) type_args simplifyAndCheckTypeApplication (TempV i) type_args
= (True, TempCV i :@: type_args) = (True, TempCV i :@: type_args)
simplifyAndCheckTypeApplication (TempQV i) type_args
= (True, TempQCV i :@: type_args)
simplifyAndCheckTypeApplication type type_args simplifyAndCheckTypeApplication type type_args
= (False, type) = (False, type)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment