couple more warning fixes

This commit is contained in:
Joey Hess 2014-02-25 14:53:43 -04:00
parent e1cf4e5e4e
commit f8cfcd4e44
2 changed files with 2 additions and 4 deletions

View file

@ -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