acw/bang
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Allow vertical bars as parts of operators.

Browse Source
This commit is contained in:
Adam Wick
2011-02-04 13:16:37 -05:00
parent 55a3e8795d
commit 56ec6e074a
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
hsrc/Syntax/Parser.y
View File

@@ -35,6 +35,7 @@ import qualified Codec.Binary.UTF8.Generic as UTF8
-- symbols
'=' { Lexeme $$ (TokOpIdent "=") }
'|' { Lexeme $$ (TokOpIdent "|") }
'->' { Lexeme $$ (TokOpIdent "->") }
'@' { Lexeme $$ (TokOpIdent "@") }
'::' { Lexeme $$ (TokOpIdent "::") }
@@ -45,7 +46,6 @@ import qualified Codec.Binary.UTF8.Generic as UTF8
']' { Lexeme $$ RSquare }
'{' { Lexeme $$ LBrace }
'}' { Lexeme $$ RBrace }
'|' { Lexeme $$ Bar }
';' { Lexeme $$ Semi }
',' { Lexeme $$ Comma }
'`' { Lexeme $$ BTick }
@@ -229,6 +229,7 @@ optional_type :: { Maybe Type }
value_ident :: { QualifiedName }
: VAL_IDENT { makeQualified $1 }
| '(' OP_IDENT ')' { makeQualified $2 }
| '(' '|' ')' { makeQualified (Lexeme $2 (TokOpIdent "|")) }
value_body :: { (Position, Expr Position) }
: '=' expression { ($1, $2) }