-- | Get the setter function from a lens.

set :: ((f -> g) :-> (o -> i)) -> i -> f -> g
set = curry . Poly.set
set :: ((f -> g) :-> (o -> i)) -> i -> f -> g
set = curry . Poly.set
set = curry . Poly.set