checkEx :: Exception e => IO (Either [e] a) -> IO a
checkEx ei_io = do
  ei <- ei_io
  case ei of
    Left exs -> forM_ (fmap show exs) errOut >> exitUsage
    Right r  -> return r


-- that's all, folks! ----------------------------------------------------------
checkEx :: Exception e => IO (Either [e] a) -> IO a
checkEx ei_io = do
  ei <- ei_io
  case ei of
    Left exs -> forM_ (fmap show exs) errOut >> exitUsage
    Right r  -> return r


-- that's all, folks! ----------------------------------------------------------
checkEx ei_io = do
  ei <- ei_io
  case ei of
    Left exs -> forM_ (fmap show exs) errOut >> exitUsage
    Right r  -> return r


-- that's all, folks! ----------------------------------------------------------