Start world = startEngine [
publish "/manage" $ const $ mTaskManager
- >>* [OnAction (Action "Shutdown") (always $ shutDown)],
+ >>* [OnAction (Action "Shutdown") (always $ shutDown 0)],
publish "/" $ const demo
] world
+demo :: Task ()
demo = viewSharedInformation "Devices" [] deviceStoreNP
>>* [OnValue $ ifValue pred (cont o hd)]
where