Fix lexing of underscores in ints

natefaubion · Aug 6, 2021 · 2b3c78a · 2b3c78a
1 parent 71d84e6
commit 2b3c78a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/PureScript/CST/Lexer.purs b/src/PureScript/CST/Lexer.purs
@@ -575,7 +575,7 @@ token =
     fractionPart <- optional (try (charDot *> fractionPartRegex))
     exponentPart <- optional (charExponent *> parseExponentPart)
     if isNothing fractionPart && isNothing exponentPart then
-      case Int.fromString intPart of
+      case Int.fromString (stripUnderscores intPart) of
         Just int ->
           pure $ TokInt intPart int
         Nothing ->