Fantomas formatting

safesparrow · safesparrow · commit e1be12743584 · 2022-10-10T21:17:06.000+01:00
diff --git a/src/Compiler/Facilities/Activity.fs b/src/Compiler/Facilities/Activity.fs
@@ -6,18 +6,18 @@ open System
 open System.Diagnostics
 
 [<RequireQualifiedAccess>]
-module Activity =    
-    
+module Activity =
+
     let private activitySourceName = "fsc"
     let private activitySource = new ActivitySource(activitySourceName)
 
-    let start name (tags : (string * string) seq) : IDisposable = 
+    let start name (tags: (string * string) seq) : IDisposable =
         match activitySource.StartActivity(name) |> Option.ofObj with
         | Some activity ->
             for key, value in tags do
                 activity.AddTag(key, value) |> ignore
+
             activity :> IDisposable
-        | None ->
-            null
+        | None -> null
 
-    let startNoTags name: IDisposable = activitySource.StartActivity(name)
+    let startNoTags name : IDisposable = activitySource.StartActivity(name)
diff --git a/src/Compiler/Service/FSharpCheckerResults.fs b/src/Compiler/Service/FSharpCheckerResults.fs
@@ -2488,12 +2488,7 @@ module internal ParseAndCheckFile =
 
         cancellable {
             use _ =
-                Activity.start
-                    "ParseAndCheckFile.CheckOneFile"
-                    [|
-                        "fileName", mainInputFileName
-                        "length", sourceText.Length.ToString()
-                    |]
+                Activity.start "ParseAndCheckFile.CheckOneFile" [| "fileName", mainInputFileName; "length", sourceText.Length.ToString() |]
 
             let parsedMainInput = parseResults.ParseTree
 
