Process first ident in longIdent correctly. (#2960)

Author: nojaf

CHANGELOG.md

@@ -1,9 +1,10 @@
 # Changelog
 
-## [Unreleased]
+## 6.2.1 - 2023-09-18
 
 ### Fixed
 * Backticks in optional parameter gets removed [#2954](https://github.com/fsprojects/fantomas/issues/2954)
+* Ticks in namespace are lost [#2959](https://github.com/fsprojects/fantomas/issues/2959)
 
 ## 6.2.0 - 2023-08-29
 

src/Fantomas.Core.Tests/ModuleTests.fs

@@ -1106,3 +1106,24 @@ module Bar =
         | Why
         | Zed
 """
+
+[<Test>]
+let ``namespace with ticks, 2959`` () =
+    formatSourceString
+        false
+        """
+namespace ``G-Research``.``FSharp X``.``Analyzers Y``
+
+module StringAnalyzers =
+    ()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+namespace ``G-Research``.``FSharp X``.``Analyzers Y``
+
+module StringAnalyzers =
+    ()
+"""

src/Fantomas.Core/ASTTransformer.fs

@@ -69,7 +69,7 @@ let mkLongIdent (longIdent: LongIdent) : IdentListNode =
         let range =
             longIdent |> List.map (fun ident -> ident.idRange) |> List.reduce unionRanges
 
-        IdentListNode(IdentifierOrDot.Ident(stn head.idText head.idRange) :: rest, range)
+        IdentListNode(IdentifierOrDot.Ident(mkIdent head) :: rest, range)
 
 let mkSynAccess (vis: SynAccess option) =
     match vis with