update, still broken due to iTasks

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 60fb0a8..f4b0721 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -34,7 +34,7 @@ viewSharesGrid _ [] = viewInformation "No shares yet" [] []
 viewSharesGrid cs sh = (allTasks [watch (getSDSShare m)\\m<-sh] <<@ NoUserInterface)
        >&^ \st->flip (<<@) NoUserInterface $ whileUnchanged st $ \mshs->enterChoice "" [ChooseFromGrid id]
                [{MTaskShare|ss&value=s}\\s<-fromJust mshs & ss<-sh]
-//             >>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
+               >>* [OnValue (withValue $ \s->Just (set (Just s) cs))]
                @! fromJust mshs
 
 viewShare :: MTaskShare -> Task BCValue

diff --git a/miTask.icl b/miTask.icl
index cab7934..c7b68dd 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -68,6 +68,6 @@ mTaskManager = startupDevices >>| anyTask
                                        MTPub i val = updateShare i val
                                        MTTaskAck i = deviceTaskAcked device i
                                        MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
-                                       MTDevSpec s = treturn ()//deviceAddSpec device s @! ()
+                                       MTDevSpec s = deviceAddSpec device s @! ()
                                        _ = treturn ()
                                        ) >>| proc ms