[ viewmTasks @! ()
, whileUnchanged sdsStore manageShares
, whileUnchanged deviceStore $ manageDevices process
- ] <<@ ApplyLayout (foldr1 sequenceLayouts
+ ] <<@ ApplyLayout (sequenceLayouts
[arrangeWithSideBar 0 LeftSide 260 True
,arrangeSplit Vertical True])
where
// MTSDSAck i = traceValue (toString m) @! ()
// MTSDSDelAck i = traceValue (toString m) @! ()
MTPub i val = updateShare i val
- MTTaskAck i = deviceTaskAcked device i
+ MTTaskAck i mem = deviceTaskAcked device i mem
MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
MTDevSpec s = deviceAddSpec device s @! ()
_ = treturn ()