Simple lexer/parser fixes.

2011-01-06 18:03:56 -08:00
parent 7a435e5f64
commit 39ff973e81
3 changed files with 28 additions and 6 deletions
--- a/hsrc/Syntax/Lexer.x
+++ b/hsrc/Syntax/Lexer.x
@@ -20,7 +20,7 @@ $bindigit = [01]
 -- Identifier Characters
 $typestart   = [A-Z\_]
 $valstart    = [a-z\_]
-$identrest   = [a-zA-Z0-9\_]
+$identrest   = [a-zA-Z0-9\_\.]
 $opident     = [\~\!\@\#\$\%\^\&\*\+\-\=\.\:\<\>\?\/\_]
 $escape_char = [abfnrtv'\"\\]

--- a/hsrc/Syntax/Parser.y
+++ b/hsrc/Syntax/Parser.y
@@ -175,7 +175,6 @@ bangtype2 :: { Type }

 bangtype3 :: { Type }
  : TYPE_IDENT             { TVar (makeQualified $1) Star }
-  | VAL_IDENT              { TVar (makeQualified $1) Star }
  | '(' bangtype ')'       { $2 }

 -- Expressions --------------------------------------------------------------