IK
Size: a a a
IK
VD
AV
f :: (Traversable t) => t a -> ([a] -> IO (Map a c)]) -> IO (t (a,Maybe c))
AV
(a -> IO c) всё понятно, это просто traverseAV
AV
AV
f t g = do
let x = toList t
z <- g x
pure $ t & \i -> (i, z ?! i)
AV
AV
AV
AV
MP
MP
к
f :: (Traversable t) => t a -> ([a] -> IO (Map a c)]) -> IO (t (a,Maybe c))