remove redundant throw

This commit is contained in:
Ryan Mulligan 2018-04-02 22:07:05 -07:00
parent 1ca94d6e75
commit b4661570a9

View File

@ -62,8 +62,7 @@ loop options log ((package, oldVersion, newVersion) : moreUpdates) okToPrAt = do
(\ e ->
case e of
ExitCode 0 -> return True
ExitCode _ -> return False
_ -> throw e)
ExitCode _ -> return False)
okToPrAt <-
if updated then do