squash build warnings on windows

This commit is contained in:
Joey Hess 2020-11-23 14:00:17 -04:00
parent 06a80dc790
commit 804808d569
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 10 additions and 10 deletions

View file

@ -207,11 +207,13 @@ runAction repo action@(CommandAction {}) = liftIO $ do
where
gitparams = gitCommandLine
(Param (getSubcommand action):getParams action) repo
#ifndef mingw32_HOST_OS
go p (Just h) _ _ pid = do
hPutStr h $ intercalate "\0" $ toCommand $ getFiles action
hClose h
forceSuccessProcess p pid
go _ _ _ _ _ = error "internal"
#endif
runAction repo action@(InternalAction {}) =
let InternalActionRunner _ runner = getRunner action
in runner repo (getInternalFiles action)