Allow vertical bars as parts of operators.

2011-02-04 13:16:37 -05:00
parent 55a3e8795d
commit 56ec6e074a
2 changed files with 3 additions and 3 deletions
--- a/hsrc/Syntax/Lexer.x
+++ b/hsrc/Syntax/Lexer.x
@@ -21,7 +21,7 @@ $bindigit = [01]
 $typestart   = [A-Z\_]
 $valstart    = [a-z\_]
 $identrest   = [a-zA-Z0-9\_\.]
-$opident     = [\~\!\@\#\$\%\^\&\*\+\-\=\.\<\>\?\_]
+$opident     = [\~\!\@\#\$\%\^\&\*\+\-\=\.\<\>\?\_\|]
 $escape_char = [abfnrtv'\"\\]

 :-
@@ -58,7 +58,6 @@ $escape_char = [abfnrtv'\"\\]
  "]"                                             { emitT RSquare }
  "{"                                             { emitT LBrace  }
  "}"                                             { emitT RBrace  }
-  "|"                                             { emitT Bar     }
  ";"                                             { emitT Semi    }
  ","                                             { emitT Comma   }
  "`"                                             { emitT BTick   }