exit :: Bool -> IO a
exit b =
    if b
    then exitSuccess
    else exitFailure
exit :: Bool -> IO a
exit b =
    if b
    then exitSuccess
    else exitFailure
exit b =
    if b
    then exitSuccess
    else exitFailure