From c3449ff91d045c8951336b423b1f66ebe7fd98d0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 26 Oct 2017 12:01:16 -0400 Subject: [PATCH] finish fix for gitAnnexLink on windows dropDrive needed since if splitPath splits out the drives, they would appear different. --- Utility/Path.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Path.hs b/Utility/Path.hs index 0409ff05f6..dc91ce50c3 100644 --- a/Utility/Path.hs +++ b/Utility/Path.hs @@ -143,7 +143,7 @@ relPathDirToFileAbs from to where pfrom = sp from pto = sp to - sp = map dropTrailingPathSeparator . splitPath + sp = map dropTrailingPathSeparator . splitPath . dropDrive common = map fst $ takeWhile same $ zip pfrom pto same (c,d) = c == d uncommon = drop numcommon pto