fix #3290 (catch exception when search file in malformed paths)

fsprojects · Jul 12, 2018 · edde814 · edde814
1 parent 74ac649
commit edde814
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/Paket.Core/Common/ProcessHelper.fs b/src/Paket.Core/Common/ProcessHelper.fs
@@ -15,6 +15,7 @@ let tryFindFile dirs file =
     let files =
         dirs
         |> Seq.map (fun (path : string) ->
+            try
                let dir =
                  DirectoryInfo(
                    path
@@ -26,7 +27,13 @@ let tryFindFile dirs file =
                else
                    let fi = FileInfo(Path.Combine(dir.FullName,file))
                    if fi.Exists then fi.FullName
-                   else "")
+                   else ""
+            with
+            | exn ->
+                Logging.verbosefn "Exception while searching %s in %s:" file path
+                Logging.verbosefn "%O" exn
+
+                "")
         |> Seq.filter ((<>) "")
         |> Seq.cache
     if not (Seq.isEmpty files) then Some(Seq.head files)