MTPub i val = updateShare i val
MTTaskAck i = deviceTaskAcked device i
MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
+ MTDevSpec s = deviceAddSpec device s @! ()
_ = treturn ()
) >>| proc ms
-
- mapPar :: (a -> Task a) [a] -> Task ()
- mapPar f l = foldr1 (\x y->f x ||- y) l <<@ ArrangeWithTabs @! ()
- allAtOnce t = foldr1 (||-) t @! ()
- //allAtOnce = (flip (@!) ()) o foldr1 (||-)