mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix

Browse source
This commit is contained in:
Joey Hess 2013-10-17 19:49:44 -04:00
parent 81c4259a0d
commit c116383b5d
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/Command.hs
View file

@ -29,7 +29,9 @@ gitCommandLine params Repo { location = l@(Local _ _ ) } = setdir : settree ++ p
Just t -> [Param $ "--work-tree=" ++ gitpath t] Just t -> [Param $ "--work-tree=" ++ gitpath t]
#ifdef mingw32_HOST_OS #ifdef mingw32_HOST_OS
-- despite running on windows, msysgit wants a unix-formatted path -- despite running on windows, msysgit wants a unix-formatted path
gitpath = dropDrive . toInternalGitPath gitpath s
| isAbsulute s = "/" ++ dropDrive (toInternalGitPath s)
| otherwise = s
#else #else
gitpath = id gitpath = id
#endif #endif