remove flushWritesWhenIdle backgroundtassk

Libraries/iTasks/Engine.icl

@@ -67,7 +67,9 @@ where
 	startupTasks {distributed, sdsPort}
 		//If distributed, start sds service task
 		=  (if distributed [startTask (sdsServiceTask sdsPort)] [])
-		++ [startTask removeOutdatedSessions]
+		//If there are webtasks, we need to clean up sessions
+		++ if hasWebTasks [startTask removeOutdatedSessions] []
+		++ [startTask flushWritesWhenIdle]
 		//Start all startup tasks
 		++ [t \\ StartupTask t <- toStartable startable]
 
@@ -90,8 +92,7 @@ where
  		[BackgroundTask (processEvents MAX_EVENTS)
 		:if (webTasks =: [])
 			[BackgroundTask stopOnStable]
-			[BackgroundTask flushWritesWhenIdle
-			]
+			[]
 		]
 
 	// The iTasks engine consist of a set of HTTP Web services

Libraries/iTasks/Internal/EngineTasks.dcl

@@ -14,6 +14,6 @@ updateClock :: !*IWorld -> *(!MaybeError TaskException (), !*IWorld)
 
 removeOutdatedSessions :: Task ()
 
-flushWritesWhenIdle:: !*IWorld -> (!MaybeError TaskException (), !*IWorld)
+flushWritesWhenIdle:: Task ()
 
 stopOnStable :: !*IWorld -> *(!MaybeError TaskException (), !*IWorld)

Libraries/iTasks/Internal/EngineTasks.icl

@@ -115,8 +115,8 @@ where
 				= (Error e,iworld)
 
 //When the event queue is empty, write deferred SDS's
-flushWritesWhenIdle:: !*IWorld -> (!MaybeError TaskException (), !*IWorld)
-flushWritesWhenIdle iworld = case read taskEvents EmptyContext iworld of
+flushWritesWhenIdle:: Task ()
+flushWritesWhenIdle = everyTick \iworld->case read taskEvents EmptyContext iworld of
 		(Error e,iworld)          = (Error e,iworld)
 		(Ok (ReadingDone (Queue [] [])),iworld) = flushDeferredSDSWrites iworld
 		(Ok _,iworld)             = (Ok (),iworld)