From ccdf9ab7735a011f19eea3392a8974b30f75d186 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 26 Oct 2017 12:01:16 -0400
Subject: 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 0409ff05f..dc91ce50c 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
-- 
cgit v1.2.3