toSDSRecords st = [{MTaskShare |
withTask=wta,
identifier=sdsi,
+ initVal=sdsval,
//We skip the only/local shares
realShare="mTaskSDS-" +++ toString sdsi}
\\{sdsi,sdspub,sdsval}<-st.sdss | sdspub]
- makeShares :: ([MTaskShare] -> Task ())
- makeShares = undef //foldr (\sh t->set sh.initValue (getSDSStore sh) >>| t) (treturn ())
+ makeShares :: [MTaskShare] -> Task ()
+ makeShares shs = treturn () //foldr (\sh t->set sh.initValue (getSDSStore sh) >>| t) (treturn ())
addTask :: MTaskTask MTaskDevice -> MTaskDevice
addTask task device = {device & deviceTasks=[task:device.deviceTasks]}