什么是Control.Applicative.Lift有用？

Question

我在最近的一篇博客文章中写过关于transformers的文章，有人问“人们使用Control.Applicative.Lift做什么？”我无法回答这个问题，所以我向StackOverflow回答了这个问题 - Control.Applicative.Lift用于什么？

我在包中看到了一个使用它的示例，但我似乎无法完全解析它的作用。有没有人知道野外任何其他的例子？

Answer 1

Lift是一个相对较新的贡献：

data Lift f a = Pure a | Other (f a)

也就是说，给定一个仿函数f，你可以通过用纯值组合f来获得一个新的仿函数。

包本身就是一个例子：

-- | An applicative functor that collects a monoid (e.g. lists) of errors.
-- A sequence of computations fails if any of its components do, but
-- unlike monads made with 'ErrorT' from "Control.Monad.Trans.Error",
-- these computations continue after an error, collecting all the errors.
type Errors e = Lift (Constant e)

-- | Report an error.
failure :: Monoid e => e -> Errors e a
failure e = Other (Constant e)

然而，我并不知道任何野外用途。