Merge commit 'd350f1d3249a10ed36a12cfa98fa27d04f667395' into perf

Author: tboby

src/Main/Program.fs

@@ -737,8 +737,8 @@ type Server(client: ILanguageClient) =
 
                 // Check if client supports InsertReplaceEdit
                 clientSupportsInsertReplaceEdit <-
-                    p.capabilitiesMap.ContainsKey("textDocument.completion.completionItem.insertReplaceSupport") &&
-                    p.capabilitiesMap.["textDocument.completion.completionItem.insertReplaceSupport"]
+                    p.capabilitiesMap.ContainsKey("textDocument.completion.completionItem.insertReplaceSupport")
+                    && p.capabilitiesMap.["textDocument.completion.completionItem.insertReplaceSupport"]
 
                 match p.initializationOptions with
                 | Some opt ->
@@ -932,7 +932,7 @@ type Server(client: ILanguageClient) =
                         |> (fun l -> if Array.isEmpty l then [| CK3Lang.English |] else l)
                         |> Array.map Lang.CK3
                     | _, CK3 -> [| Lang.CK3 CK3Lang.English |]
-                    | JsonValue.Array o, VIC3 ->
+                    | JsonValue.Arrayo, VIC3 ->
                         o
                         |> Array.choose (function
                             | JsonValue.String s ->
@@ -943,7 +943,7 @@ type Server(client: ILanguageClient) =
                         |> (fun l -> if Array.isEmpty l then [| VIC3Lang.English |] else l)
                         |> Array.map Lang.VIC3
                     | _, VIC3 -> [| Lang.VIC3 VIC3Lang.English |]
-                    | JsonValue.Array (o: JsonValue array), EU5 ->
+                    | JsonValue.Array(o: JsonValue array), EU5 ->
                         o
                         |> Array.choose (function
                             | JsonValue.String s ->
@@ -1204,7 +1204,8 @@ type Server(client: ILanguageClient) =
             }
 
         member this.Completion(p: CompletionParams) =
-            async { return completion gameObj p docs debugMode clientSupportsInsertReplaceEdit } |> catchError None
+            async { return completion gameObj p docs debugMode clientSupportsInsertReplaceEdit }
+            |> catchError None
 
         member this.Hover(p: TextDocumentPositionParams) =
             async {
@@ -1309,6 +1310,7 @@ type Server(client: ILanguageClient) =
         member this.DocumentSymbols(p: DocumentSymbolParams) =
             let createDocumentSymbol name detail range =
                 let range = convRangeToLSPRange range
+                let name = if String.IsNullOrWhiteSpace name then "unnamed" else name
 
                 { name = name
                   detail = detail