almost done

2024-02-27 14:48:02 -07:00
parent d181df7b2c
commit 00e085135c
3 changed files with 218 additions and 13 deletions
--- a/src/Core/Parse.y
+++ b/src/Core/Parse.y
@@ -128,7 +128,8 @@ TypeApp         :: { Type }
 Type1           :: { Type }
 Type1           : '(' Type ')'                  { $2 }
                | varname                       { TyVar $1 }
-                | conname                       { TyCon $1 }
+                | conname                       { if $1 == "Type"
+                                                    then TyKindType else TyCon $1 }

 ParList      :: { [Name] }
 ParList      : varname ParList            { $1 : $2 }