fantomas

Author: DedSec256

src/Compiler/Driver/CompilerDiagnostics.fsi

@@ -59,10 +59,10 @@ type PhasedDiagnostic with
 
     /// Format the core of the diagnostic as a string. Doesn't include the range information.
     member FormatCore: flattenErrors: bool * suggestNames: bool -> string
-    
+
     /// Compute new severity according to the various diagnostics options
     member AdjustSeverity: FSharpDiagnosticOptions -> FSharpDiagnosticSeverity
-    
+
     /// Output all of a diagnostic to a buffer, including range
     member Output: buf: StringBuilder * tcConfig: TcConfig * severity: FSharpDiagnosticSeverity -> unit
 

src/Compiler/Facilities/DiagnosticsLogger.fs

@@ -291,7 +291,13 @@ type PhasedDiagnostic =
     }
 
     /// Construct a phased error
-    static member Create(exn: exn, phase: BuildPhase, severity: FSharpDiagnosticSeverity) : PhasedDiagnostic = { Exception = exn; Phase = phase; Severity = severity; DefaultSeverity = severity }
+    static member Create(exn: exn, phase: BuildPhase, severity: FSharpDiagnosticSeverity) : PhasedDiagnostic =
+        {
+            Exception = exn
+            Phase = phase
+            Severity = severity
+            DefaultSeverity = severity
+        }
 
     member this.DebugDisplay() =
         sprintf "%s: %s" (this.Subcategory()) this.Exception.Message
@@ -460,7 +466,9 @@ module DiagnosticsLoggerExtensions =
                 PreserveStackTrace exn
                 raise exn
             | _ ->
-                let diagnostic =PhasedDiagnostic.Create(exn, DiagnosticsThreadStatics.BuildPhase, severity)
+                let diagnostic =
+                    PhasedDiagnostic.Create(exn, DiagnosticsThreadStatics.BuildPhase, severity)
+
                 x.DiagnosticSink(diagnostic)
 
         member x.ErrorR exn =

src/Compiler/Service/FSharpCheckerResults.fs

@@ -2895,17 +2895,18 @@ module internal ParseAndCheckFile =
                             (diagnostic.Subcategory())
                     )
 
-                    { diagnostic with Phase = BuildPhase.TypeCheck }
+                    { diagnostic with
+                        Phase = BuildPhase.TypeCheck
+                    }
                 else
                     diagnostic
 
             if reportErrors then
                 match diagnostic with
 #if !NO_TYPEPROVIDERS
-                | { Exception = :? TypeProviderError as tpe } ->
-                    tpe.Iter(fun exn ->
-                        collectOne
-                            { diagnostic with Exception = exn })
+                | {
+                      Exception = :? TypeProviderError as tpe
+                  } -> tpe.Iter(fun exn -> collectOne { diagnostic with Exception = exn })
 #endif
                 | _ -> collectOne diagnostic
 

src/Compiler/Service/FSharpProjectSnapshot.fs

@@ -151,13 +151,8 @@ type internal FSharpFileSnapshotWithSource
 
 /// A source file snapshot with parsed syntax tree
 type internal FSharpParsedFile
-    (
-        FileName: string,
-        SyntaxTreeHash: byte array,
-        SourceText: ISourceText,
-        ParsedInput: ParsedInput,
-        ParseDiagnostics: PhasedDiagnostic[]
-    ) =
+    (FileName: string, SyntaxTreeHash: byte array, SourceText: ISourceText, ParsedInput: ParsedInput, ParseDiagnostics: PhasedDiagnostic[])
+    =
 
     member _.FileName = FileName
     member _.SourceText = SourceText