summaryrefslogtreecommitdiff
path: root/Git/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-17 19:49:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-17 19:49:44 -0400
commit25cfafd987cd82b81652681f30b38638801458fe (patch)
treed1047ae0b83ca005ddd7817b6e9a0e58ca6a2c77 /Git/Command.hs
parent9abf33af83357604897590107ee3eee0bd62e93a (diff)
fix
Diffstat (limited to 'Git/Command.hs')
-rw-r--r--Git/Command.hs4
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