Add QMARK_QMARK to FsTokenType. Fixes fsprojects#1503.

nojaf · Mar 26, 2021 · d9a0066 · d9a0066
1 parent 360c1f8
commit d9a0066
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/OperatorTests.fs b/src/Fantomas.Tests/OperatorTests.fs
@@ -971,3 +971,20 @@ let isCustomOperationProjectionParameter i (nm: Ident) =
             errorR (Error(FSComp.SR.tcCustomOperationInvalid opName, nm.idRange))
             false
 """
+
+[<Test>]
+let ``operator with QMARK_QMARK token, 1533`` () =
+    formatSourceString
+        false
+        """
+// Minimal code that displays the root of the issue:
+let inline (>??) x = x > x
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+// Minimal code that displays the root of the issue:
+let inline (>??) x = x > x
+"""
diff --git a/src/Fantomas/TokenParser.fs b/src/Fantomas/TokenParser.fs
@@ -1057,6 +1057,7 @@ let internal getFsToken tokenName =
     | "LPAREN_STAR_RPAREN" -> LPAREN_STAR_RPAREN
     | "IN" -> IN
     | "DO" -> DO
+    | "QMARK_QMARK" -> QMARK_QMARK
     | _ -> failwithf "was not expecting token %s" tokenName
 
 let getTriviaNodesFromTokens (mkRange: MkRange) (tokens: Token list) =

diff --git a/src/Fantomas/TriviaTypes.fs b/src/Fantomas/TriviaTypes.fs
@@ -52,6 +52,7 @@ type FsTokenType =
     | LPAREN_STAR_RPAREN
     | IN
     | DO
+    | QMARK_QMARK
 
 type Token =
     { TokenInfo: FSharpTokenInfo