Introduce Workaround rom https://github.com/fsprojects/Paket/pull/699…

…/files to Globbing.fs
fsprojects · Mar 12, 2015 · 8f83457 · 8f83457
1 parent 39af5c0
commit 8f83457
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/app/FakeLib/Globbing/Globbing.fs b/src/app/FakeLib/Globbing/Globbing.fs
@@ -64,6 +64,12 @@ let internal search (baseDir : string) (input : string) =
     let baseDir = normalizePath baseDir
     let input = normalizePath input
     let input = input.Replace(baseDir, "")
+
+    let input = 
+        if not (input.EndsWith("/") && DirectoryInfo(Path.Combine(baseDir, input)).Exists) then input + "/"
+        else input
+
+
     let filePattern = Path.GetFileName(input)
     input.Split([| '/'; '\\' |], StringSplitOptions.RemoveEmptyEntries)
     |> Seq.map (function