Capture trivia of int64 number. Fixes #1120 (#1131)

fsprojects · Sep 10, 2020 · 5632847 · 5632847
1 parent af13688
commit 5632847
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/SynConstTests.fs b/src/Fantomas.Tests/SynConstTests.fs
@@ -173,3 +173,9 @@ let f (a: int) =
     | 0x55 -> Some()
     | _ -> None
 """
+
+[<Test>]
+let ``preserve underscore in int64, 1120`` () =
+    formatSourceString false "let x = 60_000L" config
+    |> should equal "let x = 60_000L
+"
diff --git a/src/Fantomas/TokenParser.fs b/src/Fantomas/TokenParser.fs
@@ -327,6 +327,7 @@ let private numberTrivia =
       "UINT32"
       "INT32"
       "UINT64"
+      "INT64"
       "IEEE32"
       "DECIMAL"
       "IEEE64"