catch more exceptions

Just in case a non-IO exception might somehow be thrown.
This commit is contained in:
Joey Hess 2020-05-12 13:05:06 -04:00
parent 35b3c891af
commit be5caeaf51
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 2 additions and 2 deletions

View file

@ -627,7 +627,7 @@ startExternal external = do
}
p <- propgit g basep
(Just hin, Just hout, Just herr, ph) <-
createProcess p `catchIO` runerr cmdpath
createProcess p `catchNonAsync` runerr cmdpath
stderrelay <- async $ errrelayer herr
cv <- newTVarIO $ externalDefaultConfig external
ccv <- newTVarIO id