Revert "fsxc: also write comments for other preprocessors"

This reverts commit a8662ee.
nblockchain · Sep 5, 2024 · 7b9bb84 · 7b9bb84
1 parent 1092170
commit 7b9bb84
Showing 1 changed file with 2 additions and 36 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -631,21 +631,8 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
                         )
 
                         match action with
-                        | PreProcessorAction.Skip ->
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
+                        | PreProcessorAction.Skip -> ()
                         | PreProcessorAction.Load fileName ->
-                            File.AppendAllText(
-                                autogeneratedFile.FullName,
-                                startCommentInFSharp
-                                + line
-                                + Environment.NewLine
-                            )
-
                             let file =
                                 FileInfo(
                                     Path.Combine(
@@ -658,14 +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
@@ -676,22 +655,9 @@ 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(