diff options
Diffstat (limited to 'Git/Command.hs')
| -rw-r--r-- | Git/Command.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index 034c4ecb5..a4e5c1a4a 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -25,18 +25,10 @@ gitCommandLine :: [CommandParam] -> Repo -> [CommandParam] gitCommandLine params r@(Repo { location = l@(Local _ _ ) }) = setdir : settree ++ gitGlobalOpts r ++ params where - setdir = Param $ "--git-dir=" ++ gitpath (gitdir l) + setdir = Param $ "--git-dir=" ++ gitdir l settree = case worktree l of Nothing -> [] Just t -> [Param $ "--work-tree=" ++ gitpath t] -#ifdef mingw32_HOST_OS - -- despite running on windows, msysgit wants a unix-formatted path - gitpath s - | absoluteGitPath s = "/" ++ dropDrive (toInternalGitPath s) - | otherwise = s -#else - gitpath = id -#endif gitCommandLine _ repo = assertLocal repo $ error "internal" {- Runs git in the specified repo. -} |