added '\' for 'λ' and '->' for '→'
This commit is contained in:
parent
0c347709f0
commit
c58327ed98
4
hm.cf
4
hm.cf
|
@ -19,6 +19,7 @@ Decl. Decl ::= Id ":" TypeSig ;
|
||||||
-- todo custom [Decl]
|
-- todo custom [Decl]
|
||||||
|
|
||||||
TypeFun. TypeSig ::= TypeSig1 "→" TypeSig ;
|
TypeFun. TypeSig ::= TypeSig1 "→" TypeSig ;
|
||||||
|
TypeFun. TypeSig ::= TypeSig1 "->" TypeSig ;
|
||||||
TypeApp. TypeSig1 ::= Id [TypeSig2] ;
|
TypeApp. TypeSig1 ::= Id [TypeSig2] ;
|
||||||
TypeVar. TypeSig2 ::= Id ;
|
TypeVar. TypeSig2 ::= Id ;
|
||||||
coercions TypeSig 2;
|
coercions TypeSig 2;
|
||||||
|
@ -26,7 +27,8 @@ coercions TypeSig 2;
|
||||||
separator nonempty TypeSig2 "" ;
|
separator nonempty TypeSig2 "" ;
|
||||||
|
|
||||||
ExpLet. Exp ::= "let" "{" [Assign] "}" "in" Exp1 ;
|
ExpLet. Exp ::= "let" "{" [Assign] "}" "in" Exp1 ;
|
||||||
ExpAbs. Exp1 ::= "λ" [Id] "." Exp1 ;
|
ExpAbs. Exp1 ::= "λ" [Id] "." Exp1 ;
|
||||||
|
ExpAbs. Exp1 ::= "\\" [Id] "." Exp1 ;
|
||||||
ExpApp. Exp1 ::= Exp2 [Exp2] ;
|
ExpApp. Exp1 ::= Exp2 [Exp2] ;
|
||||||
ExpVar. Exp2 ::= Id ;
|
ExpVar. Exp2 ::= Id ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user