runAction ∷ IO Bool → IO ()
runAction action = do
        isSuccess ← action
        exitWith $ exitStatus isSuccess
    where
    exitStatus True  = ExitSuccess
    exitStatus False = ExitFailure (0-1)

runAction ∷ IO Bool → IO ()
runAction action = do
        isSuccess ← action
        exitWith $ exitStatus isSuccess
    where
    exitStatus True  = ExitSuccess
    exitStatus False = ExitFailure (0-1)
runAction action = do
        isSuccess ← action
        exitWith $ exitStatus isSuccess
    where
    exitStatus True  = ExitSuccess
    exitStatus False = ExitFailure (0-1)