@@ -14,10 +14,13 @@ num :: IParser Literal
1414num = fmap toLit (preNum <?> "number")
1515 where toLit n | '.' `elem` n = FloatNum (read n)
1616 | otherwise = IntNum (read n)
17− preNum = (++) <$> many1 digit <*> option "" postNum
17+ preNum = concat <$> sequence [ option "" minus, many1 digit, option "" postNum ]
1818 postNum = do try $ lookAhead (string "." >> digit)
1919 string "."
2020 ('.':) <$> many1 digit
21+ minus = try $ do string "-"
22+ lookAhead digit
23+ return "-"
2124
2225chr :: IParser Literal
2326chr = Chr <$> betwixt '\'' '\'' (backslashed <|> satisfy (/='\''))