applied formatting with dotnet fantomas

ionide · Sep 13, 2023 · d3d6f8d · d3d6f8d
1 parent 55294bc
commit d3d6f8d
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 25 deletions.
diff --git a/src/FsAutoComplete/CodeFixes/AddMissingWildcardOperator.fs b/src/FsAutoComplete/CodeFixes/AddMissingWildcardOperator.fs
@@ -21,16 +21,12 @@ let tryFindPattern pos input =
         member _.VisitExpr(path, traverseSynExpr, defaultTraverse, expr) =
           match expr with
           | SynExpr.LongIdent(
-                      longDotId =
-                          SynLongIdent.SynLongIdent(
-                              trivia = [ Some(IdentTrivia.OriginalNotation("|->")) ]
-                          )
-                      range = range) when FSharp.Compiler.Text.Range.rangeContainsPos range pos ->
+              longDotId = SynLongIdent.SynLongIdent(trivia = [ Some(IdentTrivia.OriginalNotation("|->")) ])
+              range = range) when FSharp.Compiler.Text.Range.rangeContainsPos range pos ->
 
-                  Some(range)
+            Some(range)
 
-          | _ -> defaultTraverse expr
-    }
+          | _ -> defaultTraverse expr }
 
   SyntaxTraversal.Traverse(pos, input, visitor)
 
@@ -52,12 +48,9 @@ let fix (getParseResultsForFile: GetParseResultsForFile) : CodeFix =
         let lspRange = fcsRangeToLsp operatorRange
 
         return
-            [ { Title = title
-                File = codeActionParams.TextDocument
-                SourceDiagnostic = Some diagnostic
-                Edits =
-                  [| { Range = lspRange
-                       NewText = "| _ ->" }
-                  |]
-                Kind = FixKind.Fix } ]
+          [ { Title = title
+              File = codeActionParams.TextDocument
+              SourceDiagnostic = Some diagnostic
+              Edits = [| { Range = lspRange; NewText = "| _ ->" } |]
+              Kind = FixKind.Fix } ]
     })
diff --git a/test/FsAutoComplete.Tests.Lsp/CodeFixTests/AddMissingWildcardOperatorTests.fs b/test/FsAutoComplete.Tests.Lsp/CodeFixTests/AddMissingWildcardOperatorTests.fs
@@ -7,10 +7,12 @@ open Utils.CursorbasedTests
 open FsAutoComplete.CodeFix
 
 let tests state =
-  serverTestList (nameof AddMissingWildcardOperator) state defaultConfigDto None (fun server -> [
-    let selectCodeFix = CodeFix.withTitle AddMissingWildcardOperator.title
-    ftestCaseAsync "can suggest wildcard pattern for missing match case" <|
-      CodeFix.check server
+  serverTestList (nameof AddMissingWildcardOperator) state defaultConfigDto None (fun server ->
+    [ let selectCodeFix = CodeFix.withTitle AddMissingWildcardOperator.title
+
+      ftestCaseAsync "can suggest wildcard pattern for missing match case"
+      <| CodeFix.check
+        server
         """
         type SomeUnion =
             | First
@@ -32,6 +34,4 @@ let tests state =
             match su with
             | First -> "hey"
             | _ -> "hello"
-        """
-    ]
-  )
+        """ ])
diff --git a/test/FsAutoComplete.Tests.Lsp/CodeFixTests/Tests.fs b/test/FsAutoComplete.Tests.Lsp/CodeFixTests/Tests.fs
@@ -3352,5 +3352,4 @@ let tests state =
       wrapExpressionInParenthesesTests state
       removeRedundantAttributeSuffixTests state
       removePatternArgumentTests state
-      AddMissingWildcardOperatorTests.tests state
-    ]
+      AddMissingWildcardOperatorTests.tests state ]