Fix PathTooLongException exception during build

NaseUkolyCZ · Sep 17, 2015 · 93b6490 · 93b6490
1 parent 7839481
commit 93b6490
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/app/FakeLib/Globbing/Globbing.fs b/src/app/FakeLib/Globbing/Globbing.fs
@@ -52,7 +52,12 @@ let rec private buildPaths acc (input : SearchOption list) =
          Seq.collect (fun dir -> 
                             if Directory.Exists(Path.Combine(dir, pattern))
                             then seq { yield Path.Combine(dir, pattern) }
-                            else Directory.EnumerateFiles(dir, pattern)) acc |> Seq.toList
+                            else 
+                                try
+                                    Directory.EnumerateFiles(dir, pattern)
+                                with
+                                    | :? System.IO.PathTooLongException as ex -> Array.toSeq [| |]
+                            ) acc |> Seq.toList
 
 let private isDrive = 
     let regex = Regex(@"^[A-Za-z]:$", RegexOptions.Compiled)