msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

tysigd

Browse Source
This commit is contained in:
crumbtoo
2024-03-04 10:47:58 -07:00
parent 142c53a553
commit 40a6ca8e37
4 changed files with 40 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/Rlp/AltParse.y
View File

@@ -86,6 +86,10 @@ VS : ';' { () }
Decl :: { Decl PsName (RlpExpr PsName) }
: FunD { $1 }
| DataD { $1 }
| TySigD { $1 }
TySigD :: { Decl PsName (RlpExpr PsName) }
: Var '::' Type { TySigD $1 $3 }
DataD :: { Decl PsName (RlpExpr PsName) }
: data Con TyVars { DataD $2 $3 [] }
@@ -104,7 +108,8 @@ Type1 :: { Type PsName }
| '(' Type ')' { $2 }
Type :: { Type PsName }
: AppT { $1 }
: Type '->' Type { $1 :-> $3 }
| AppT { $1 }
AppT :: { Type PsName }
: Type1 { $1 }