fix failure if project path or temp dir contains whitespace

fix https://github.com/enricosada/dotnet-proj-info/issues/2

Author: enricosada

src/dotnet-proj-info/Inspect.fs

@@ -27,12 +27,16 @@ module MSBuild =
          | Project of string
 
     let sprintfMsbuildArg a =
-        //TODO quote
+        let quote (s: string) =
+            if s.Contains(" ")
+            then sprintf "\"%s\"" s
+            else s
+
         match a with
-         | Property (k,v) -> sprintf "/p:%s=%s" k v
-         | Target t -> sprintf "/t:%s" t
+         | Property (k,v) -> sprintf "/p:%s=%s" k v |> quote
+         | Target t -> sprintf "/t:%s" t |> quote
          | Switch w -> sprintf "/%s" w
-         | Project w -> w
+         | Project w -> w |> quote
 
 open MSBuild
 

src/dotnet-proj-info/Program.fs

@@ -50,7 +50,7 @@ open System.IO
 
 let runCmd log exePath args =
     log (sprintf "running '%s %s'" exePath (args |> String.concat " "))
-    let cmd = Command.Run(exePath, args |> Array.ofList |> Array.map box)
+    let cmd = Command.Run(exePath, args |> List.map (fun s -> s.Trim('"')) |> Array.ofList |> Array.map box)
 
     let result = cmd.Result
     log "output:"

test/app c1/Program.fs

@@ -0,0 +1,8 @@
+// Learn more about F# at http://fsharp.org
+
+open System
+
+[<EntryPoint>]
+let main argv =
+    printfn "Hello World from F#!"
+    0 // return an integer exit code

test/app c1/app c1.fsproj

@@ -0,0 +1,17 @@
+<Project Sdk="FSharp.NET.Sdk;Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>netcoreapp1.1</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Program.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="FSharp.Core" Version="4.1.*" />
+    <PackageReference Include="FSharp.NET.Sdk" Version="1.0.*" PrivateAssets="All" />
+  </ItemGroup>
+
+</Project>