diff options
author | 2014-02-25 14:53:43 -0400 | |
---|---|---|
committer | 2014-02-25 14:53:43 -0400 | |
commit | b36d8f7d5658be508613f8cb8cf3f22bb460736d (patch) | |
tree | 45d6f46c3a54b1e88f52818aeb2fc7fac782a579 | |
parent | 7cdfa61f3e06cd5289447bcd6a414709af445ae8 (diff) |
couple more warning fixes
-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 |