X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=ba2898718e72e65435ddbff08d5351477fa776fb;hb=a81623aa9629a3c5c8f8bf920e494a596b30c4b7;hp=b0378c1f4dd01931c9bdda52b8b4517a150217d7;hpb=4f5bec7a819e8a8ee9ee30b761c2159df0a7d8a4;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index b0378c1..ba28987 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -35,9 +35,9 @@ demo = viewInformation "" [] "Hello world"
 mTaskManager :: Task ()
 mTaskManager = startupDevices >>| anyTask 
 		[ viewmTasks @! ()
-		, whileUnchanged sdsStore manageShares
+		, whileUnchanged sdsStore manageShares @! ()
 		, whileUnchanged deviceStore $ manageDevices process
-		] <<@ ApplyLayout (sequenceLayouts
+		] <<@ ApplyLayout (foldl1 sequenceLayouts
 			[arrangeWithSideBar 0 LeftSide 260 True
 			,arrangeSplit Vertical True])
 	where
@@ -66,8 +66,8 @@ 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
-					MTTaskAck i = deviceTaskAcked device i
+					MTPub i val = updateShare i val @! ()
+					MTTaskAck i mem = deviceTaskAcked device i mem
 					MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
 					MTDevSpec s = deviceAddSpec device s @! ()
 					_ = treturn ()