instance MonadCont m => MonadCont (ExceptT e m)