next time we can fix fsprojects#2136

BlythMeister · Oct 13, 2018 · cd2b568 · cd2b568
1 parent f5bf356
commit cd2b568
Showing 1 changed file with 13 additions and 8 deletions.
diff --git a/src/app/Fake.Core.Process/ProcessUtils.fs b/src/app/Fake.Core.Process/ProcessUtils.fs
@@ -14,18 +14,23 @@ module ProcessUtils =
         let files = 
             dirs
             |> Seq.map (fun (path : string) -> 
-                   let dir = 
+                   let replacedPath = 
                        path
                        |> String.replace "[ProgramFiles]" Environment.ProgramFiles
                        |> String.replace "[ProgramFilesX86]" Environment.ProgramFilesX86
                        |> String.replace "[SystemRoot]" Environment.SystemRoot
-                       |> DirectoryInfo.ofPath
-                   if not dir.Exists then ""
-                   else 
-                       let fi = dir.FullName @@ file
-                                |> FileInfo.ofPath
-                       if fi.Exists then fi.FullName
-                       else "")
+                   try
+                       let dir =
+                           replacedPath   
+                           |> DirectoryInfo.ofPath
+                       if not dir.Exists then ""
+                       else 
+                           let fi = dir.FullName @@ file
+                                    |> FileInfo.ofPath
+                           if fi.Exists then fi.FullName
+                           else ""
+                   with e ->
+                       raise <| exn(sprintf "Error while trying to find files like '%s' in path '%s' (replaced '%s'). Please report this issue to FAKE and reference https://github.com/fsharp/FAKE/issues/2136." file path replacedPath, e))
             |> Seq.filter ((<>) "")
             |> Seq.cache
         files