Co to jest Control.Applicative.Lift przydatne?

Question

Napisałem o transformers w niedawnym poście na blogu, a ktoś zapytał "do czego ludzie używają Control.Applicative.Lift"? Nie byłem w stanie odpowiedzieć na to pytanie, więc powtarzam pytanie do StackOverflow - do czego jest używany?

Widzę jeden przykład użycia go w pakiecie, ale nie wydaje się być całkowicie w stanie przeanalizować, co robi. Czy ktoś zna jakieś inne przykłady na wolności?

Answer 1

Lift jest stosunkowo nowy wpis:

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

Oznacza to, że dany funktor f można dostać nowy funktor przez komponowanie f z czystym wartości.

Sam pakiet daje przykład:

-- | 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) 

nie wiem o wszelkich zastosowań in-the-wild z tego jednak.