diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-17 19:49:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-17 19:49:44 -0400 |
| commit | 25cfafd987cd82b81652681f30b38638801458fe (patch) | |
| tree | d1047ae0b83ca005ddd7817b6e9a0e58ca6a2c77 /Git/Command.hs | |
| parent | 9abf33af83357604897590107ee3eee0bd62e93a (diff) | |
fix
Diffstat (limited to 'Git/Command.hs')
| -rw-r--r-- | Git/Command.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index d48a36c69..1cefacf8e 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -29,7 +29,9 @@ gitCommandLine params Repo { location = l@(Local _ _ ) } = setdir : settree ++ p Just t -> [Param $ "--work-tree=" ++ gitpath t] #ifdef mingw32_HOST_OS -- despite running on windows, msysgit wants a unix-formatted path - gitpath = dropDrive . toInternalGitPath + gitpath s + | isAbsulute s = "/" ++ dropDrive (toInternalGitPath s) + | otherwise = s #else gitpath = id #endif |