hssequenceA :: (Traversable t, Applicative f) => t (f a) -> f (t a) sequenceA = traverse id
t
f
sequenceA
id