X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=fd5dac509e840bcdd3c2b45becd930a55742436e;hb=5bb47d85ee13e4c0907a82971a907657511211cc;hp=f701b642063ebbe34665dcc0715cdcdf0f8ae2f8;hpb=cb452795ab772fb465e7675b22865eb1ff25cf53;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index f701b64..fd5dac5 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -35,7 +35,7 @@ demo = viewInformation "" [] "Hello world"
 mTaskManager :: Task ()
 mTaskManager = startupDevices >>| anyTask 
 		[ viewmTasks @! ()
-		, whileUnchanged sdsStore manageShares
+		, manageShares @! ()
 		, whileUnchanged deviceStore $ manageDevices process
 		] <<@ ApplyLayout (foldl1 sequenceLayouts
 			[arrangeWithSideBar 0 LeftSide 260 True
@@ -66,7 +66,7 @@ mTaskManager = startupDevices >>| anyTask
 				proc [m:ms] = traceValue (toString m) >>| (case m of
 //					MTSDSAck i = traceValue (toString m) @! ()
 //					MTSDSDelAck i = traceValue (toString m) @! ()
-					MTPub i val = updateShare i val
+					MTPub i val = updateShareFromPublish device i val @! ()
 					MTTaskAck i mem = deviceTaskAcked device i mem
 					MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
 					MTDevSpec s = deviceAddSpec device s @! ()