Add ticks to mod identifier. Fixes #1960. (#1963)

fsprojects · Nov 9, 2021 · a40a7e9 · a40a7e9
1 parent 758347b
commit a40a7e9
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/SignatureTests.fs b/src/Fantomas.Tests/SignatureTests.fs
@@ -1602,6 +1602,25 @@ type Foo =
     static member Baz: int
 """
 
+[<Test>]
+let ``mod name in val, 1960`` () =
+    formatSourceString
+        true
+        """
+module X
+
+val ``mod``: t -> t -> t
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module X
+
+val ``mod``: t -> t -> t
+"""
+
 [<Test>]
 let ``literals in signatures, 1953`` () =
     formatSourceString

diff --git a/src/Fantomas/SourceParser.fs b/src/Fantomas/SourceParser.fs
@@ -35,6 +35,7 @@ let (|Ident|) (s: Ident) =
     | "not" -> "not"
     | "params" -> "``params``"
     | "parallel" -> "``parallel``"
+    | "mod" -> "``mod``"
     | _ ->
         if IsActivePatternName ident then
             sprintf "(%s)" (DecompileOpName ident)