catch more exceptions
Just in case a non-IO exception might somehow be thrown.
This commit is contained in:
parent
35b3c891af
commit
be5caeaf51
2 changed files with 2 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue