update to new iTasks system, some error, heap full

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index 2a80f5c..918b414 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -26,10 +26,11 @@ import TTY, iTasksTTY
 
 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