Add exitSuccess :: IO a. For symmetry with exitFailure