From b36d8f7d5658be508613f8cb8cf3f22bb460736d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 25 Feb 2014 14:53:43 -0400 Subject: couple more warning fixes --- Git/Queue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Git') 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 -- cgit v1.2.3