WIP4

nblockchain · Sep 5, 2024 · c7c54a5 · c7c54a5
1 parent d016678
commit c7c54a5
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -588,8 +588,11 @@ module FsxScriptInit
 type FsiStub = { CommandLineArgs: array<string> }
 let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 """
+
             let extraExtensionForMain: ExtraExtension = "fs"
-            let autogeneratedFile = GetAutoGenerationTargets origScript extraExtensionForMain
+
+            let autogeneratedFile =
+                GetAutoGenerationTargets origScript extraExtensionForMain
 
             let binFolder = autogeneratedFile.Directory
 
@@ -605,10 +608,17 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
             )
 
             let extraExtensionForInitFile: ExtraExtension = "init.fs"
-            let initFile = GetAutoGenerationTargets origScript extraExtensionForInitFile
+
+            let initFile =
+                GetAutoGenerationTargets origScript extraExtensionForInitFile
+
             File.WriteAllText(initFile.FullName, initialFileContent)
 
-            let extraExtensions = [extraExtensionForInitFile ; extraExtensionForMain]
+            let extraExtensions =
+                [
+                    extraExtensionForInitFile
+                    extraExtensionForMain
+                ]
 
             seq {
                 // for !LEGACY_FRAMEWORK, this init file will be added to the fsproj file
@@ -847,7 +857,7 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 #if !LEGACY_FRAMEWORK
         let projectFile = generateProjectFile script contents extraExtensions
 #else // dummy for to just prevent "unused" warning, meh
-        for ext in extraExtensions do
+        for _ext in extraExtensions do
             ()
 #endif