started with device handshake

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 2b9d4e0..45ee7dd 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -66,10 +66,6 @@ mTaskManager = startupDevices >>| anyTask
                                        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 (||-)