Run Fantomas

Author: safesparrow

src/Compiler/Driver/ParseAndCheckInputs.fs

@@ -1464,27 +1464,31 @@ let CheckOneInputAux'
                 fsiBackedInfos[file.FileName] <- sigFileType
 
                 // printfn $"Finished Processing Sig {file.FileName}"
-                return fun tcState ->
-                    // printfn $"Applying Sig {file.FileName}"
-                    let fsiPartialResult, tcState =
-                        let rootSigs = Zmap.add qualNameOfFile sigFileType tcState.tcsRootSigs
-                        let tcSigEnv =
-                            AddLocalRootModuleOrNamespace TcResultsSink.NoSink tcGlobals amap m tcState.tcsTcSigEnv sigFileType
-
-                        // Add the signature to the signature env (unless it had an explicit signature)
-                        let ccuSigForFile = CombineCcuContentFragments [ sigFileType; tcState.tcsCcuSig ]
-
-                        let partialResult = tcEnv, EmptyTopAttrs, None, ccuSigForFile
-                        
-                        let tcState =
-                            { tcState with
-                                tcsTcSigEnv = tcSigEnv
-                                tcsRootSigs = rootSigs
-                                tcsCreatesGeneratedProvidedTypes = tcState.tcsCreatesGeneratedProvidedTypes || createsGeneratedProvidedTypes
-                            }
-                        partialResult, tcState
+                return
+                    fun tcState ->
+                        // printfn $"Applying Sig {file.FileName}"
+                        let fsiPartialResult, tcState =
+                            let rootSigs = Zmap.add qualNameOfFile sigFileType tcState.tcsRootSigs
+
+                            let tcSigEnv =
+                                AddLocalRootModuleOrNamespace TcResultsSink.NoSink tcGlobals amap m tcState.tcsTcSigEnv sigFileType
+
+                            // Add the signature to the signature env (unless it had an explicit signature)
+                            let ccuSigForFile = CombineCcuContentFragments [ sigFileType; tcState.tcsCcuSig ]
+
+                            let partialResult = tcEnv, EmptyTopAttrs, None, ccuSigForFile
+
+                            let tcState =
+                                { tcState with
+                                    tcsTcSigEnv = tcSigEnv
+                                    tcsRootSigs = rootSigs
+                                    tcsCreatesGeneratedProvidedTypes =
+                                        tcState.tcsCreatesGeneratedProvidedTypes || createsGeneratedProvidedTypes
+                                }
+
+                            partialResult, tcState
 
-                    fsiPartialResult, tcState
+                        fsiPartialResult, tcState
 
             | ParsedInput.ImplFile file ->
                 // printfn $"Processing Impl {file.FileName}"

tests/ParallelTypeCheckingTests/Code/DependencyResolution.fs

@@ -149,7 +149,7 @@ module internal DependencyResolution =
 
         let trie = buildTrie nodes
 
-        let processFile (node : FileData) =
+        let processFile (node: FileData) =
             let deps =
                 let fsiDep =
                     if node.File.FsiBacked then
@@ -222,9 +222,8 @@ module internal DependencyResolution =
                     let moduleRefs = Array.append node.Data.Tops node.Data.ModuleRefs
 
                     // Process module refs in order, marking more and more TrieNodes as reachable and potential prefixes
-                    moduleRefs
-                    |> Array.iter processRef
-                    
+                    moduleRefs |> Array.iter processRef
+
                     // Collect files from all reachable TrieNodes
                     let deps =
                         reachable

tests/ParallelTypeCheckingTests/Tests/TestCompilation.fs

@@ -126,53 +126,62 @@ namespace A
 module B
 open A
 """
-        ] |> FProject.Make  CompileOutput.Library
-    
+        ]
+        |> FProject.Make CompileOutput.Library
+
     let dependentSignatures =
         [
-            "A.fsi", """
+            "A.fsi",
+            """
 module A
 
 type AType = class end
 """
-            "A.fs", """
+            "A.fs",
+            """
 module A
 
 type AType = class end
 """
-            "B.fsi", """
+            "B.fsi",
+            """
 module B
 
 open A
 
 val b: AType -> unit
 """
-            "B.fs", """
+            "B.fs",
+            """
 module B
 
 open A
 
 let b (a:AType) = ()
 """
-            "C.fsi", """
+            "C.fsi",
+            """
 module C
 
 type CType = class end
 """
-            "C.fs", """
+            "C.fs",
+            """
 module C
 
 type CType = class end
 """
-            "D.fsi", """
+            "D.fsi",
+            """
 module D
 
 open A
 open C
 
 val d: CType -> unit 
 """
-            "D.fs", """
+            "D.fs",
+            """
 module D
 
 open A
@@ -184,8 +193,8 @@ let d (c: CType) =
     b a
 """
         ]
-        |> FProject.Make  CompileOutput.Library
-    
+        |> FProject.Make CompileOutput.Library
+
     let all =
         [
             encodeDecodeSimple

tests/ParallelTypeCheckingTests/Tests/TestDependencyResolution.fs

@@ -269,7 +269,8 @@ let ``Analyse whole projects and print statistics`` (projectFile: string) =
         files
         |> Array.Parallel.mapi (fun i f ->
             let code = System.IO.File.ReadAllText(f)
-            let ast = parseSourceCode(f, code)
+            let ast = parseSourceCode (f, code)
+
             {
                 Idx = FileIdx.make i
                 //Code = code