Add SynPat.Const as trivia node option for Number trivia. Fixes #995. (…

…#997)
fsprojects · Aug 13, 2020 · ee6dd12 · ee6dd12
1 parent 0c436e3
commit ee6dd12
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/SynConstTests.fs b/src/Fantomas.Tests/SynConstTests.fs
@@ -157,3 +157,19 @@ Target.runOrDefault "CheckCodeFormat"
 
 Target.runOrDefault "CheckCodeFormat"
 """
+
+[<Test>]
+let ``hexadecimal numbers in match clause should be preserved, 995`` () =
+    formatSourceString false """
+let f (a: int) =
+    match a, b with
+    | 0x55 -> Some ()
+    | _ -> None
+"""  config
+    |> prepend newline
+    |> should equal """
+let f (a: int) =
+    match a, b with
+    | 0x55 -> Some()
+    | _ -> None
+"""
diff --git a/src/Fantomas/Trivia.fs b/src/Fantomas/Trivia.fs
@@ -129,6 +129,7 @@ let private findConstNodeOnLineAndColumn (nodes: TriviaNodeAssigner list) line c
     |> List.tryFind (fun tn ->
         match tn.Type, line = tn.Range.StartLine, column = tn.Range.StartColumn with
         | MainNode("SynExpr.Const"), true, true -> true
+        | MainNode("SynPat.Const"), true, true -> true
         | _ -> false
     )