fix code format

ionide · Oct 22, 2023 · da3dc40 · da3dc40
1 parent 26bce28
commit da3dc40
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 18 deletions.
diff --git a/src/FsAutoComplete.Core/TipFormatter.fs b/src/FsAutoComplete.Core/TipFormatter.fs
@@ -892,18 +892,21 @@ let private xmlDocCache =
 
 let private findCultures v =
   let rec loop state (v: System.Globalization.CultureInfo) =
-      let state' = v.Name :: state
-      if v.Parent = System.Globalization.CultureInfo.InvariantCulture then
-          "" :: state' |> List.rev
-      else loop state' v.Parent
+    let state' = v.Name :: state
+
+    if v.Parent = System.Globalization.CultureInfo.InvariantCulture then
+      "" :: state' |> List.rev
+    else
+      loop state' v.Parent
+
   loop [] v
 
 let private findLocalizedXmlFile (xmlFile: string) =
   let xmlName = Path.GetFileName xmlFile
   let path = Path.GetDirectoryName xmlFile
 
   findCultures System.Globalization.CultureInfo.CurrentUICulture
-  |> List.map (fun culture -> Path.Combine (path, culture, xmlName))
+  |> List.map (fun culture -> Path.Combine(path, culture, xmlName))
   |> List.tryFind (fun i -> File.Exists i)
   |> Option.defaultValue xmlFile
 

diff --git a/src/FsAutoComplete/CodeFixes.fs b/src/FsAutoComplete/CodeFixes.fs
@@ -327,9 +327,7 @@ module Run =
     runDiagnostics (fun d -> d.Message.Contains checkMessage) handler
 
   let ifDiagnosticByCheckMessage (checkMessageFunc: (string -> bool) list) handler : CodeFix =
-    runDiagnostics (fun d ->
-      checkMessageFunc
-      |> List.exists (fun f -> f d.Message)) handler
+    runDiagnostics (fun d -> checkMessageFunc |> List.exists (fun f -> f d.Message)) handler
 
   let ifDiagnosticByType (diagnosticType: string) handler : CodeFix =
     runDiagnostics

diff --git a/src/FsAutoComplete/CodeFixes/ReplaceWithSuggestion.fs b/src/FsAutoComplete/CodeFixes/ReplaceWithSuggestion.fs
@@ -9,8 +9,7 @@ open FSharp.Compiler.Syntax
 let title suggestion = $"Replace with '%s{suggestion}'"
 
 let undefinedName =
-  [
-    "Maybe you want one of the following:"
+  [ "Maybe you want one of the following:"
     "Možná budete potřebovat něco z tohoto:"
     "Vielleicht möchten Sie eine der folgenden Bezeichnungen verwenden:"
     "Puede elegir una de las opciones siguientes:"
@@ -23,8 +22,8 @@ let undefinedName =
     "Возможно, требуется одно из следующих:"
     "Aşağıdakilerden birini arıyor olabilirsiniz:"
     "你可能需要以下之一:"
-    "您可能需要下列其中一項:"
-  ] |> List.map (fun i -> fun (j: string) -> j.Contains(i, System.StringComparison.Ordinal))
+    "您可能需要下列其中一項:" ]
+  |> List.map (fun i -> fun (j: string) -> j.Contains(i, System.StringComparison.Ordinal))
 
 /// a codefix that replaces the use of an unknown identifier with a suggested identifier
 let fix =

diff --git a/src/FsAutoComplete/CodeFixes/ResolveNamespace.fs b/src/FsAutoComplete/CodeFixes/ResolveNamespace.fs
@@ -13,8 +13,7 @@ open System.Text.RegularExpressions
 type LineText = string
 
 let undefinedName =
-  [
-    "not define"
+  [ "not define"
     "nedefinuje|Není definovaný|Není definované|Není definovaná|Nemáte definovaný"
     "definiert nicht|nicht.*? definiert"
     "no define|no está definido|no está definida"
@@ -27,10 +26,10 @@ let undefinedName =
     "не определяет|не определено|не определены|не определен"
     "tanımlamıyor|tanımlı değil"
     "未.*?定义"
-    "未定義"
-  ] |> List.map (fun i ->
-        let regex = Regex(i, RegexOptions.IgnoreCase ||| RegexOptions.Compiled)
-        fun (j: string) -> regex.IsMatch(j))
+    "未定義" ]
+  |> List.map (fun i ->
+    let regex = Regex(i, RegexOptions.IgnoreCase ||| RegexOptions.Compiled)
+    fun (j: string) -> regex.IsMatch(j))
 
 /// a codefix the provides suggestions for opening modules or using qualified names when an identifier is found that needs qualification
 let fix