vvaluetraversal :: forall (f :: Type -> Type). Applicative f => (a %1 -> f b) -> s %1 -> f t-> Traversal s t a bPeek#