reenable main program

diff --git a/miTask.icl b/miTask.icl
index fda80c8..5c2b47a 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -27,32 +27,8 @@ import TTY, iTasksTTY
 //derive class iTask ByteSize, Parity, BaudRate, TTYSettings, TCPSettings
 //derive class iTask MTaskDeviceSpec, MTaskResource, MTaskTask, MTaskDevice
 
-Start :: *World -> *World
-Start world = startEngine (viewInformation "" [] md) world
-       where
-               md = 
-                       { deviceTask = Just $ TaskId 0 0
-                       , deviceError = Just ""
-                       , deviceChannels = "abc"
-                       , deviceName = "hoi"
-                       , deviceTasks = []
-                       , deviceData = TCPDevice {TCPSettings
-                               |host="localhost",
-                               port=8888
-                               }
-                       , deviceSpec = Just {MTaskDeviceSpec
-                               |haveLed = True
-                               ,haveAio = True
-                               ,haveDio = True
-                               ,maxTask = 42
-                               ,maxSDS = 5
-                               }
-                       }
-                       
-                       
-
-//Start world = startEngine (mTaskManager
-//     >>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
+Start world = startEngine (mTaskManager
+       >>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
 
 mTaskManager :: Task ()
 mTaskManager = startupDevices >>| anyTask 
@@ -92,6 +68,6 @@ mTaskManager = startupDevices >>| anyTask
                                        MTPub i val = updateShare i val
                                        MTTaskAck i = deviceTaskAcked device i
                                        MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
-                                       MTDevSpec s = deviceAddSpec device s @! ()
+                                       MTDevSpec s = treturn ()//deviceAddSpec device s @! ()
                                        _ = treturn ()
                                        ) >>| proc ms