-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