Merge pull request #1719 from pr-yemibedu/patch-2

added executeFSIWithArgsAndReturnMessages
fsprojects · Jan 2, 2018 · 489e9ff · 489e9ff
2 parents e50a358 + c828852
commit 489e9ff
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/app/FakeLib/FSIHelper.fs b/src/app/FakeLib/FSIHelper.fs
@@ -187,6 +187,14 @@ let executeFSIWithArgs workingDirectory script extraFsiArgs env =
     Thread.Sleep 1000
     result = 0
 
+/// Run the given build script with fsi.exe and allows for extra arguments to FSI. Returns output.
+let executeFSIWithArgsAndReturnMessages workingDirectory script extraFsiArgs env =
+    let (result, messages) =
+        ExecProcessRedirected (fun startInfo ->
+            FsiStartInfo workingDirectory (FsiArgs(extraFsiArgs, script, [])) env startInfo) TimeSpan.MaxValue
+    Thread.Sleep 1000
+    (result, messages)
+
 /// Run the given build script with fsi.exe and allows for extra arguments to the script. Returns output.
 let executeFSIWithScriptArgsAndReturnMessages script (scriptArgs: string[]) =
     let (result, messages) =