Apply patch from /run fantomas

Author: actions-user

src/Compiler/Driver/XmlDocFileWriter.fsi

@@ -16,4 +16,5 @@ module XmlDocWriter =
 
     /// Writes the XmlDocSig property of each element (field, union case, etc)
     /// of the specified compilation unit to an XML document in a new text file.
-    val WriteXmlDocFile: g: TcGlobals * infoReader: InfoReader * assemblyName: string * generatedCcu: CcuThunk * xmlFile: string -> unit
+    val WriteXmlDocFile:
+        g: TcGlobals * infoReader: InfoReader * assemblyName: string * generatedCcu: CcuThunk * xmlFile: string -> unit

src/Compiler/Symbols/XmlDocInheritance.fs

@@ -30,15 +30,21 @@ let private extractInheritDocDirectives (doc: XDocument) =
 
     let crefName = XName.op_Implicit "cref" |> Operators.nonNull
     let pathName = XName.op_Implicit "path" |> Operators.nonNull
-    
+
     doc.Descendants(inheritDocName)
     |> Seq.map (fun elem ->
         let crefAttr = elem.Attribute(crefName)
         let pathAttr = elem.Attribute(pathName)
 
         {
-            Cref = match crefAttr with null -> None | attr -> Some attr.Value
-            Path = match pathAttr with null -> None | attr -> Some attr.Value
+            Cref =
+                match crefAttr with
+                | null -> None
+                | attr -> Some attr.Value
+            Path =
+                match pathAttr with
+                | null -> None
+                | attr -> Some attr.Value
             Element = elem
         })
     |> List.ofSeq

src/Compiler/Symbols/XmlDocInheritance.fsi

@@ -13,4 +13,12 @@ open FSharp.Compiler.Xml
 /// Takes an optional ModuleOrNamespaceType for accessing the current compilation's typed content
 /// Takes an optional implicit target cref for resolving <inheritdoc/> without cref attribute
 /// Takes a set of visited signatures to prevent cycles
-val expandInheritDoc: infoReaderOpt: InfoReader option -> ccuOpt: CcuThunk option -> currentModuleTypeOpt: ModuleOrNamespaceType option -> implicitTargetCrefOpt: string option -> m: range -> visited: Set<string> -> doc: XmlDoc -> XmlDoc
+val expandInheritDoc:
+    infoReaderOpt: InfoReader option ->
+    ccuOpt: CcuThunk option ->
+    currentModuleTypeOpt: ModuleOrNamespaceType option ->
+    implicitTargetCrefOpt: string option ->
+    m: range ->
+    visited: Set<string> ->
+    doc: XmlDoc ->
+        XmlDoc

src/Compiler/Symbols/XmlDocSigParser.fs

@@ -45,6 +45,7 @@ module XmlDocSigParser =
         match m.Success, kindStr with
         | true, ("M" | "P" | "E") ->
             let parts = m.Groups["entity"].Value.Split('.')
+
             if parts.Length < 2 then
                 ParsedDocCommentId.None
             else
@@ -68,8 +69,7 @@ module XmlDocSigParser =
                     | _ -> DocCommentIdKind.Unknown
 
                 // Handle constructor name conversion (#ctor in doc comments, .ctor in F#)
-                let finalMemberName =
-                    if memberOrVal = "#ctor" then ".ctor" else memberOrVal
+                let finalMemberName = if memberOrVal = "#ctor" then ".ctor" else memberOrVal
 
                 ParsedDocCommentId.Member(entityPath, finalMemberName, genericParametersCount, kind)
 
@@ -79,6 +79,7 @@ module XmlDocSigParser =
 
         | true, "F" ->
             let parts = m.Groups["entity"].Value.Split('.')
+
             if parts.Length < 2 then
                 ParsedDocCommentId.None
             else

vsintegration/src/FSharp.Editor/Navigation/GoToDefinition.fs

@@ -969,8 +969,7 @@ type FSharpCrossLanguageSymbolNavigationService() =
 
         | ParsedDocCommentId.Member(typePath, memberName, genericArity, kind) ->
             // Convert constructor name format (.ctor in parser, ``.ctor`` needed for F# lookup)
-            let memberOrValName =
-                if memberName = ".ctor" then "``.ctor``" else memberName
+            let memberOrValName = if memberName = ".ctor" then "``.ctor``" else memberName
 
             let symbolMemberType =
                 match kind with