Fix regression

nblockchain · Sep 4, 2024 · 6b500c2 · 6b500c2
1 parent 0737656
commit 6b500c2
Showing 1 changed file with 2 additions and 32 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -629,19 +629,8 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 
                         match action with
                         | PreProcessorAction.Skip ->
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
+                            ()
                         | PreProcessorAction.Load fileName ->
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
 
                             let file =
                                 FileInfo(
@@ -656,13 +645,6 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 #if LEGACY_FRAMEWORK
                         | PreProcessorAction.NugetRef(nugetPkgName, version) ->
 
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
-
                             let downloadedRef =
                                 nugetRefToNormalRef
                                     origScript
@@ -673,22 +655,10 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 #else
 
                         | PreProcessorAction.NugetRef(_nugetPkgName, _version) ->
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
+                            ()
 #endif
                         | PreProcessorAction.Ref refName ->
 
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
-
                             let maybeFile =
                                 FileInfo(
                                     Path.Combine(