fsxc: refactoring (DRY)

Tiny DRY-respect improvement.
nblockchain · Sep 5, 2024 · a0c2077 · a0c2077
1 parent bc3acc4
commit a0c2077
Showing 1 changed file with 16 additions and 17 deletions.
diff --git a/fsxc/Fsxc.fs b/fsxc/Fsxc.fs
@@ -710,6 +710,18 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
             : FileInfo =
             let projectFile = GetAutoGenerationTargets origScript "fsproj"
 
+            let addFile fileName =
+                let fsProjFragment =
+                    sprintf
+                        "<ItemGroup><Compile Include=\"..%c%s\" /></ItemGroup>"
+                        Path.DirectorySeparatorChar
+                        fileName
+
+                File.AppendAllText(
+                    projectFile.FullName,
+                    fsProjFragment + Environment.NewLine
+                )
+
             let rec iterate(lines: List<LineAction>) : unit =
                 match lines with
                 | head :: tail ->
@@ -740,17 +752,8 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
                                 + fsprojFragmentEnd
                                 + Environment.NewLine
                             )
-                        | PreProcessorAction.Load fileName ->
-                            let fsProjFragment =
-                                sprintf
-                                    "<ItemGroup><Compile Include=\"..%c%s\" /></ItemGroup>"
-                                    Path.DirectorySeparatorChar
-                                    fileName
+                        | PreProcessorAction.Load fileName -> addFile fileName
 
-                            File.AppendAllText(
-                                projectFile.FullName,
-                                fsProjFragment + Environment.NewLine
-                            )
                         | PreProcessorAction.Ref refName ->
                             let fsProjFragment =
                                 if refName.ToLower().EndsWith(".dll") then
@@ -797,13 +800,9 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
 
             iterate contents
 
-            File.AppendAllText(
-                projectFile.FullName,
-                "<ItemGroup>
-                  <Compile Include=\"{userScriptFileName}.fs\" />
-                </ItemGroup></Project>"
-                    .Replace("{userScriptFileName}", origScript.Name)
-            )
+            addFile origScript.Name
+
+            File.AppendAllText(projectFile.FullName, "</Project>")
 
             projectFile
 #endif