Disallow identifier characters after numbers

Fixes #180

src/GLua/Lexer.hs

@@ -66,22 +66,17 @@ pIdentifierCharacter :: Parser Char
 pIdentifierCharacter = satisfy validChar
  where
  validChar :: Char -> Bool
- validChar c =
- cBetween c '0' '9'
- || cBetween c 'A' 'Z'
- || c == '_'
- || cBetween c 'a' 'z'
- || ord c >= 128
+ validChar c = cBetween c '0' '9' || nonDigitIdentifierCharacter c
 
 pNonDigitIdentifierCharacter :: Parser Char
-pNonDigitIdentifierCharacter = satisfy validChar
- where
- validChar :: Char -> Bool
- validChar c =
-  cBetween c 'A' 'Z'
-  || c == '_'
-  || cBetween c 'a' 'z'
-  || ord c >= 128
+pNonDigitIdentifierCharacter = satisfy nonDigitIdentifierCharacter
+
+nonDigitIdentifierCharacter :: Char -> Bool
+nonDigitIdentifierCharacter c =
+ cBetween c 'A' 'Z'
+ || c == '_'
+ || cBetween c 'a' 'z'
+ || ord c >= 128
 
 cBetween :: Char -> Char -> Char -> Bool
 cBetween c left right = c >= left && c <= right
@@ -166,7 +161,7 @@ parseString =
 -- | Parse any kind of number.
 -- Except for numbers that start with a '.'. That's handled by parseDots to solve ambiguity.
 parseNumber :: Parser Token
-parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) <?> "Number"
+parseNumber = TNumber <$> ((++) <$> (pHexadecimal <|> pBinary <|> pNumber) <*> (pLLULL <|> option "" parseNumberSuffix)) <* lookAhead (satisfy $ not . nonDigitIdentifierCharacter) <?> "Number"
  where
  pNumber :: Parser String
  pNumber = (++) <$> many1 digit <*> option "" pDecimal