Build: simplify header tracing

build.fsx

@@ -39,13 +39,7 @@ let cudaRelease = release "CUDA Provider" "RELEASENOTES-CUDA.md"
 let openBlasRelease = release "OpenBLAS Provider" "RELEASENOTES-OpenBLAS.md"
 let dataRelease = release "Data Extensions" "RELEASENOTES-Data.md"
 let releases = [ numericsRelease; mklRelease; openBlasRelease; dataRelease ] // skip cuda
-
-trace (sprintf " Math.NET Numerics                    v%s" numericsRelease.PackageVersion)
-trace (sprintf " Math.NET Numerics MKL Provider       v%s" mklRelease.PackageVersion)
-trace (sprintf " Math.NET Numerics CUDA Provider      v%s" cudaRelease.PackageVersion)
-trace (sprintf " Math.NET Numerics OpenBLAS Provider  v%s" openBlasRelease.PackageVersion)
-trace (sprintf " Math.NET Numerics Data Extensions    v%s" dataRelease.PackageVersion)
-trace ""
+traceHeader releases
 
 
 // CORE PACKAGES

build/build-framework.fsx

@@ -30,7 +30,6 @@ Environment.CurrentDirectory <- Path.Combine (__SOURCE_DIRECTORY__ + "/../")
 trace Environment.CurrentDirectory
 
 let header = ReadFile(__SOURCE_DIRECTORY__ </> __SOURCE_FILE__) |> Seq.take 10 |> Seq.map (fun s -> s.Substring(2)) |> toLines
-trace header
 
 type Release =
     { Title: string
@@ -69,6 +68,12 @@ let release title releaseNotesFile : Release =
       ReleaseNotes = notes
       ReleaseNotesFile = releaseNotesFile }
 
+let traceHeader (releases:Release list) =
+    trace header
+    let titleLength = releases |> List.map (fun r -> r.Title.Length) |> List.max
+    for release in releases do
+        trace ([ " "; release.Title.PadRight titleLength; "  v"; release.PackageVersion ] |> String.concat "")
+    trace ""
 
 // --------------------------------------------------------------------------------------
 // TARGET FRAMEWORKS