diff options
author | Joey Hess <joey@kitenet.net> | 2014-02-08 15:31:03 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-02-08 15:39:04 -0400 |
commit | b1915b9054ffa57e84c1300ac0d0d9bc1c7af20d (patch) | |
tree | c4b7771e493a5c8997e04dcf93868e6d5b94fe89 /Git/Command.hs | |
parent | 97f152eff1d9b1c7543844dacda8c264aadede9f (diff) |
Windows: Fix handling of absolute unix-style git repository paths.
Note that on Windows a remote with a path like /home/foo/bar
is interpreted by git as being some screwy relative path (relative to what
exactly seems ill-defined -- it seemed relative to C:\Program Files\Git\ in
my tests!) So no attempt has been made to handle such a path sanely, just not
to crash when encountering it.
Note that "C:\\foo" </> "/home/foo/bar" yields /home/foo/bar even though
that is not absolute! I don't know what to make of all this,
except that I will be very happy when this crock of **** vanishes from
the face of the earth.
Diffstat (limited to 'Git/Command.hs')
-rw-r--r-- | Git/Command.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index 90abc7e4f..034c4ecb5 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -32,7 +32,7 @@ gitCommandLine params r@(Repo { location = l@(Local _ _ ) }) = #ifdef mingw32_HOST_OS -- despite running on windows, msysgit wants a unix-formatted path gitpath s - | isAbsolute s = "/" ++ dropDrive (toInternalGitPath s) + | absoluteGitPath s = "/" ++ dropDrive (toInternalGitPath s) | otherwise = s #else gitpath = id |