Windows: Fix bug in dropping an annexed file, which caused a symlink to be staged that contained backslashes.

This commit is contained in:
Joey Hess 2015-02-09 15:24:33 -04:00
parent 10db6c54df
commit 3e78b83875
5 changed files with 11 additions and 2 deletions

View file

@ -66,7 +66,7 @@ absPathFrom :: FilePath -> FilePath -> FilePath
absPathFrom dir path = simplifyPath (combine dir path)
{- On Windows, this converts the paths to unix-style, in order to run
- MissingH's absNormPath on them. Resulting path will use / separators. -}
- MissingH's absNormPath on them. -}
absNormPathUnix :: FilePath -> FilePath -> Maybe FilePath
#ifndef mingw32_HOST_OS
absNormPathUnix dir path = MissingH.absNormPath dir path