diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-10-26 12:01:16 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-10-26 12:01:16 -0400 |
| commit | ccdf9ab7735a011f19eea3392a8974b30f75d186 (patch) | |
| tree | 46fdf08aeb91d62d10657e31a56b47f5571156dd /Utility | |
| parent | 939c843558ad463027b57dd33eaf7bfbc0cee0b3 (diff) | |
finish fix for gitAnnexLink on windows
dropDrive needed since if splitPath splits out the drives, they would
appear different.
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/Path.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |