Revert "fsxc: also write comments for other preprocessors"

This reverts commit a8662ee because it was actually duplicating the line (these actions were already being printed as a comment).
nblockchain · Sep 5, 2024 · e883ca7 · e883ca7
1 parent 0c2150c
commit e883ca7
Showing 1 changed file with 2 additions and 36 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -635,21 +635,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(
@@ -662,14 +649,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
@@ -680,22 +659,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(