From 22938a745f2763f2f4366247043d7edc5c96a1d0 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Fri, 24 Mar 2017 12:18:25 +0100 Subject: [PATCH] update, still broken due to iTasks --- Shares/mTaskShare.icl | 2 +- miTask.icl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl index 60fb0a8..f4b0721 100644 --- 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 --- 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 -- 2.20.1