summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Git/Queue.hs2
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