fsxc: also write comments for other preprocessors

In a similar vain to [1], we should write lines when encountering these other cases. [1] bd7ae17
nblockchain · Sep 3, 2024 · a8662ee · a8662ee
1 parent 42ef0d2
commit a8662ee
Showing 1 changed file with 36 additions and 2 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -594,8 +594,21 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
                         )
 
                         match action with
-                        | PreProcessorAction.Skip -> ()
+                        | PreProcessorAction.Skip ->
+                            File.AppendAllText(
+                                autogeneratedFile.FullName,
+                                startCommentInFSharp
+                                + line
+                                + Environment.NewLine
+                            )
                         | PreProcessorAction.Load fileName ->
+                            File.AppendAllText(
+                                autogeneratedFile.FullName,
+                                startCommentInFSharp
+                                + line
+                                + Environment.NewLine
+                            )
+
                             let file =
                                 FileInfo(
                                     Path.Combine(
@@ -608,6 +621,14 @@ 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
@@ -618,9 +639,22 @@ 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(