add publishing of sds's

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index ab37901..2203541 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -3,7 +3,6 @@ module miTask
 import StdDebug, StdMisc
 
 from Text import class Text(concat,join,split), instance Text String
-from Control.Monad import mapM
 
 import iTasks
 import mTask
@@ -12,9 +11,9 @@ derive class iTask MTaskMessage
 
 Start :: *World -> *World
 Start world = startEngine (
-       withShared ([], False, [], False) (\ch->
-               enterInformation "Port Number?" [] >>= \port->mTaskTask port ch
-       )) world
+       enterInformation "Port Number?" []
+       >>= \port->withShared ([], False, [], False) (mTaskTask port)
+       ) world
 //Start world = startEngine mTaskTask world
 
 mTaskTask :: Int (Shared ([MTaskMessage],Bool,[MTaskMessage],Bool)) -> Task ()