loops - Haskell的EitherT发生了什么？

Question

在阅读一篇名为 Breaking from a Loop 的旧(2012 年)博客文章时作者:Gabriel Gonzalez 很明显，聚光灯 EitherT以某种方式离开了生态系统。 EitherT package声明它已被弃用，取而代之的是 either - 实际上根本不关心 monad 变压器。
我注意到有人试图清理似乎在 10 年前就存在的错误处理困惑。我的猜测是 EitherT不再需要了。
我认为博客文章中提出的打破循环的方法非常巧妙。所以我想知道:今天的EitherT 的替代品是什么？ .批评ErrorT ，为此目的，我认为仍然存在，并且 ContT对于这个小问题，确实是比较重的机器。
作为引用，这是博客文章中讨论的习语:

import Control.Monad.Transfomers.EitherT

exit = left 

main = runEitherT $ forever $ do
    str <- lift getLine
    when (str == "exit") $ exit ()

(顺便说一句，同一作者的 Control.Break 绕过了整个 EitherT 、 ErrorT 、 ContT 、 ExceptT 困惑。)

Answer 1

今天更换 EitherT是 ExceptT :

import Control.Monad.Except

-- use `throwError` in place of `left`
exit = throwError

-- use `runExceptT` in place of `runEitherT`
main = runExceptT $ forever $ do
    str <- lift getLine
    when (str == "exit") $ exit ()