-- | Exits with an error message /unless/ the given boolean condition
-- if true, the opposite of 'exitWhen'.
exitUnless :: Bool -> String -> IO ()
exitUnless cond = exitWhen (not cond)
exitUnless :: Bool -> String -> IO ()
exitUnless cond = exitWhen (not cond)
exitUnless cond = exitWhen (not cond)