diff options
| -rw-r--r-- | Git/Queue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Queue.hs b/Git/Queue.hs index 7f8724c8d..5f7b142c0 100644 --- a/Git/Queue.hs +++ b/Git/Queue.hs @@ -148,7 +148,7 @@ runAction :: Repo -> Action -> IO () runAction repo (UpdateIndexAction streamers) = -- list is stored in reverse order Git.UpdateIndex.streamUpdateIndex repo $ reverse streamers -runAction repo action@(CommandAction {}) = +runAction repo action@(CommandAction {}) = do #ifndef mingw32_HOST_OS let p = (proc "xargs" $ "-0":"git":toCommand gitparams) { env = gitEnv repo } withHandle StdinHandle createProcessSuccess p $ \h -> do |