fantomas

src/Compiler/Driver/CompilerDiagnostics.fs

@@ -1269,8 +1269,8 @@ type Exception with
                 | Parser.TOKEN_INTERP_STRING_BEGIN_PART -> SR.GetString("Parser.TOKEN.INTERP.STRING.BEGIN.PART")
                 | Parser.TOKEN_INTERP_STRING_PART -> SR.GetString("Parser.TOKEN.INTERP.STRING.PART")
                 | Parser.TOKEN_INTERP_STRING_END -> SR.GetString("Parser.TOKEN.INTERP.STRING.END")
-                | Parser.TOKEN_WITHNULL__  -> SR.GetString("Parser.TOKEN.WITHNULL__")
-                | Parser.TOKEN_NOTNULL__  -> SR.GetString("Parser.TOKEN.NOTNULL__")
+                | Parser.TOKEN_WITHNULL__ -> SR.GetString("Parser.TOKEN.WITHNULL__")
+                | Parser.TOKEN_NOTNULL__ -> SR.GetString("Parser.TOKEN.NOTNULL__")
                 | unknown ->
                     let result = sprintf "unknown token tag %+A" unknown
                     Debug.Assert(false, result)

src/Compiler/Driver/CompilerImports.fsi

@@ -49,7 +49,8 @@ val IsOptimizationDataResourceB: ILResource -> bool
 /// Determine if an IL resource attached to an F# assembly is an F# quotation data resource for reflected definitions
 val IsReflectedDefinitionsResource: ILResource -> bool
 
-val GetResourceNameAndSignatureDataFuncs: ILResource list -> (string * ((unit -> ReadOnlyByteMemory) * (unit -> ReadOnlyByteMemory) option)) list
+val GetResourceNameAndSignatureDataFuncs:
+    ILResource list -> (string * ((unit -> ReadOnlyByteMemory) * (unit -> ReadOnlyByteMemory) option)) list
 
 /// Encode the F# interface data into a set of IL attributes and resources
 val EncodeSignatureData:

src/Compiler/Driver/GraphChecking/FileContentMapping.fs

@@ -240,7 +240,7 @@ let visitSynType (t: SynType) : FileContentEntry list =
             let continuations = List.map (snd >> visit) fields
             Continuation.concatenate continuations continuation
         | SynType.Array (elementType = elementType) -> visit elementType continuation
-        | SynType.WithNull(innerType = innerType) ->  visit innerType continuation
+        | SynType.WithNull (innerType = innerType) -> visit innerType continuation
         | SynType.Fun (argType, returnType, _, _) ->
             let continuations = List.map visit [ argType; returnType ]
             Continuation.concatenate continuations continuation

src/Compiler/Driver/StaticLinking.fs

@@ -183,7 +183,8 @@ let StaticLinkILModules
 
             // Save only the interface/optimization attributes of generated data
             let intfDataResources, others =
-                allResources |> List.partition (fun (_, r) -> IsSignatureDataResource r || IsSignatureDataResourceB r)
+                allResources
+                |> List.partition (fun (_, r) -> IsSignatureDataResource r || IsSignatureDataResourceB r)
 
             let intfDataResources =
                 [
@@ -193,7 +194,8 @@ let StaticLinkILModules
                 ]
 
             let optDataResources, others =
-                others |> List.partition (fun (_, r) -> IsOptimizationDataResource r || IsOptimizationDataResourceB r)
+                others
+                |> List.partition (fun (_, r) -> IsOptimizationDataResource r || IsOptimizationDataResourceB r)
 
             let optDataResources =
                 [

src/Compiler/Facilities/LanguageFeatures.fs

@@ -240,7 +240,7 @@ type LanguageVersion(versionText) =
         | LanguageFeature.FromEndSlicing -> FSComp.SR.featureFromEndSlicing ()
         | LanguageFeature.FixedIndexSlice3d4d -> FSComp.SR.featureFixedIndexSlice3d4d ()
         | LanguageFeature.AndBang -> FSComp.SR.featureAndBang ()
-        | LanguageFeature.NullnessChecking -> FSComp.SR.featureNullnessChecking()
+        | LanguageFeature.NullnessChecking -> FSComp.SR.featureNullnessChecking ()
         | LanguageFeature.ResumableStateMachines -> FSComp.SR.featureResumableStateMachines ()
         | LanguageFeature.NullableOptionalInterop -> FSComp.SR.featureNullableOptionalInterop ()
         | LanguageFeature.DefaultInterfaceMemberConsumption -> FSComp.SR.featureDefaultInterfaceMemberConsumption ()

src/Compiler/Legacy/LegacyHostedCompilerForTesting.fs

@@ -209,12 +209,12 @@ type internal FscCompiler(legacyReferenceResolver) =
         // compensate for this in case caller didn't know
         let args =
             match box args with
-            | Null -> [|"fsc"|]
-            | _ -> 
-            match args with
-            | [||] -> [|"fsc"|]
-            | a when not <| fscExeArg a[0] -> Array.append [| "fsc" |] a
-            | _ -> args
+            | Null -> [| "fsc" |]
+            | _ ->
+                match args with
+                | [||] -> [| "fsc" |]
+                | a when not <| fscExeArg a[0] -> Array.append [| "fsc" |] a
+                | _ -> args
 
         let errorRanges = args |> Seq.exists errorRangesArg
         let vsErrors = args |> Seq.exists vsErrorsArg

src/Compiler/SyntaxTree/PrettyNaming.fs

@@ -1106,11 +1106,11 @@ let FSharpOptimizationCompressedDataResourceName =
 
 let FSharpSignatureCompressedDataResourceName = "FSharpSignatureCompressedData."
 
-let FSharpOptimizationCompressedDataResourceNameB = "FSharpOptimizationCompressedDataB."
+let FSharpOptimizationCompressedDataResourceNameB =
+    "FSharpOptimizationCompressedDataB."
 
 let FSharpSignatureCompressedDataResourceNameB = "FSharpSignatureCompressedDataB."
 
-
 // For historical reasons, we use a different resource name for FSharp.Core, so older F# compilers
 // don't complain when they see the resource. The prefix of these names must not be 'FSharpOptimizationData'
 // or 'FSharpSignatureData'

src/FSharp.Core/async.fs

@@ -875,7 +875,6 @@ module AsyncPrimitives =
 #endif
         MakeAsyncWithCancelCheck(fun ctxt -> ctxt.PostWithTrampoline syncCtxt ctxt.cont)
 
-
     ///   - Initial cancellation check
     ///   - Create Thread and call Start() with exception protection. We don't expect this
     ///     to fail but protect nevertheless.