Skip to content

Commit 0133549

Browse files
committed
Revert "fsxc: print fs autogenerated file (debug)"
This reverts commit 0c2150c because we don't need the debug output anymore.
1 parent 2cab8f3 commit 0133549

File tree

2 files changed

+4
-17
lines changed

2 files changed

+4
-17
lines changed

fsxc/Fsxc.fs

Lines changed: 3 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -479,7 +479,7 @@ module Program =
479479
let preprocessScriptContents
480480
(origScript: FileInfo)
481481
(contents: List<LineAction>)
482-
: List<CompilerInput> * List<ExtraExtension> * FileInfo =
482+
: List<CompilerInput> * List<ExtraExtension> =
483483

484484
#if LEGACY_FRAMEWORK
485485
// from "Microsoft.Build", "16.11.0" to .../packages/Microsoft.Build.16.11.0/lib/net472/Microsoft.Build.dll
@@ -705,8 +705,7 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
705705
)
706706
}
707707
|> List.ofSeq,
708-
extraExtensions,
709-
autogeneratedFile
708+
extraExtensions
710709

711710
#if LEGACY_FRAMEWORK
712711
let getSourceFiles(flags: seq<CompilerInput>) : seq<FileInfo> =
@@ -843,17 +842,8 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
843842

844843
let binFolder = GetBinFolderForAScript script
845844

846-
let compilerInputs, extraExtensions, autoGenFile =
845+
let compilerInputs, extraExtensions =
847846
preprocessScriptContents script contents
848-
849-
Console.WriteLine(
850-
"_________________START AUTOGEN FILE_________________"
851-
)
852-
853-
for line in File.ReadAllLines(autoGenFile.FullName) do
854-
Console.WriteLine line
855-
856-
Console.WriteLine("_________________END AUTOGEN FILE_________________")
857847
#if !LEGACY_FRAMEWORK
858848
let projectFile = generateProjectFile script contents extraExtensions
859849
#else // dummy for to just prevent "unused" warning, meh
@@ -921,8 +911,6 @@ let fsi = { CommandLineArgs = System.Environment.GetCommandLineArgs() }
921911
| _ -> "fsharpc"
922912
#endif
923913

924-
Console.WriteLine(">>>>>>>>>>>>>>>COMPFLAGS: " + fscompilerflags)
925-
926914
let proc =
927915
Process.Execute(
928916
{

scripts/runTests.fsx

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -347,12 +347,11 @@ let dotnetFsiCmd =
347347
Process.Execute(dotnetFsiCmd, Echo.All) |> UnwrapDefault
348348
#endif
349349

350-
(*
351350
let processTest = Path.Combine(TestDir.FullName, "testProcess.fsx") |> FileInfo
352351

353352
Process.Execute(CreateCommand(processTest, String.Empty), Echo.All)
354353
|> UnwrapDefault
355-
*)
354+
356355

357356
(* this is actually only really useful for when process spits both stdout & stderr
358357
let processConcurrencyTest = Path.Combine(TestDir.FullName, "testProcessConcurrency.fsx") |> FileInfo

0 commit comments

Comments
 (0)