From 8f834575301423cc5941c7e8deae4d1fa9bc7377 Mon Sep 17 00:00:00 2001 From: Steffen Forkmann Date: Thu, 12 Mar 2015 10:53:58 +0100 Subject: [PATCH] Introduce Workaround rom https://github.com/fsprojects/Paket/pull/699/files to Globbing.fs --- src/app/FakeLib/Globbing/Globbing.fs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/app/FakeLib/Globbing/Globbing.fs b/src/app/FakeLib/Globbing/Globbing.fs index a7834f18832..c13ec77e5db 100644 --- 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