Pass arguments to build -t benchmark

Author: Tarmil

FSharp.SystemTextJson.sln

@@ -3,7 +3,7 @@ Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio Version 16
 VisualStudioVersion = 16.0.29009.5
 MinimumVisualStudioVersion = 15.0.26124.0
-Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "build", "build", "{CB1D506A-0E4B-4D73-9B71-A775E5BBED64}"
+Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = ".build", ".build", "{CB1D506A-0E4B-4D73-9B71-A775E5BBED64}"
 	ProjectSection(SolutionItems) = preProject
 		.gitignore = .gitignore
 		appveyor.yml = appveyor.yml
@@ -25,7 +25,7 @@ Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "FSharp.SystemTextJson.Tests
 EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "benchmarks", "benchmarks", "{E7CE56A4-261F-495E-B1AE-F0333FF932CA}"
 EndProject
-Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FSharp.SystemTextJson.Benchmarks", "benchmarks\FSharp.SystemTextJson.Benchmarks\FSharp.SystemTextJson.Benchmarks.fsproj", "{507E640D-9E7B-4386-994B-913E4CDD64D0}"
+Project("{6EC3EE1D-3C4E-46DD-8F32-0CC8E7565705}") = "FSharp.SystemTextJson.Benchmarks", "benchmarks\FSharp.SystemTextJson.Benchmarks\FSharp.SystemTextJson.Benchmarks.fsproj", "{507E640D-9E7B-4386-994B-913E4CDD64D0}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution

build.fsx

@@ -72,13 +72,19 @@ Target.create "Test" (fun _ ->
 
 /// This target doesn't need a dependency chain, because the benchmarks actually wrap and build the referenced
 /// project(s) as part of the run.
-Target.create "Benchmark" (fun _ ->
-    DotNet.exec (fun o -> { o with 
-                                WorkingDirectory = Paths.benchmarks } ) "run" "-c release --filter \"*\""
+Target.create "Benchmark" (fun p ->
+    let args = p.Context.Arguments
+    seq {
+        yield! ["-p"; Paths.benchmarks; "-c"; "release"; "--"]
+        if not (List.contains "-f" args || List.contains "--filter" args) then
+            yield! ["--filter"; "*"]
+        yield! args
+    }
+    |> Args.toWindowsCommandLine
+    |> DotNet.exec id "run"
     |> fun r -> 
-        if r.OK 
-        then () 
-        else failwithf "Benchmarks failed with code %d:\n%A" r.ExitCode r.Errors
+        if not r.OK then
+            failwithf "Benchmarks failed with code %d:\n%A" r.ExitCode r.Errors
 )
 
 Target.create "All" ignore