use right handle

This commit is contained in:
Joey Hess 2020-06-05 16:38:11 -04:00
parent 0fd72ff8e0
commit 05703893af
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -207,7 +207,7 @@ runAction repo action@(CommandAction {}) = liftIO $ do
where
gitparams = gitCommandLine
(Param (getSubcommand action):getParams action) repo
go p _ (Just h) _ pid = do
go p (Just h) _ _ pid = do
hPutStr h $ intercalate "\0" $ toCommand $ getFiles action
hClose h
forceSuccessProcess p pid