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

abandon ship

Browse Source
This commit is contained in:
crumbtoo
2024-01-28 17:02:32 -07:00
parent 83dda869f8
commit fdaa2a1afd
3 changed files with 37 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/Rlp/Parse.y
View File

@@ -107,17 +107,17 @@ DataCons :: { [ConAlt RlpcPs] }
DataCon :: { ConAlt RlpcPs }
: Con Type1s { undefined }
Type1s :: { [Type] }
Type1s :: { [RlpType RlpcPs] }
: {- epsilon -} { [] }
| Type1s Type1 { $1 `snoc` $2 }
Type1 :: { Type }
: '(' Type ')' { undefined }
Type1 :: { RlpType' RlpcPs }
: '(' Type ')' { $2 }
| conname { undefined }
| varname { undefined }
Type :: { Type }
: Type '->' Type { $1 :-> $3 }
Type :: { RlpType' RlpcPs }
: Type '->' Type { undefined }
| Type1 { $1 }
FunDecl :: { Decl' RlpcPs }
@@ -147,7 +147,7 @@ Expr1 :: { RlpExpr' RlpcPs }
InfixExpr :: { RlpExpr' RlpcPs }
: Expr1 varsym Expr { undefined }
InfixOp :: { PsName }
InfixOp :: { Located PsName }
: consym { undefined }
| varsym { undefined }