X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=22035410a0995ac6b14150855a17468cc87de405;hb=1c8014ff74afb966b891a4689d8ee3e512300746;hp=ab37901f54abd219f453353f0c113c478792af37;hpb=7edf1780ae3b91d9136db2d94b25e88d64896645;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index ab37901..2203541 100644
--- 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 ()