Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
I
iTasks-SDK
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
74
Issues
74
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
9d236b15
Commit
9d236b15
authored
Mar 14, 2019
by
Mart Lubbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
remove flushWritesWhenIdle backgroundtassk
parent
a324c52a
Pipeline
#19939
passed with stage
in 4 minutes and 43 seconds
Changes
3
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
6 deletions
+7
-6
Libraries/iTasks/Engine.icl
Libraries/iTasks/Engine.icl
+4
-3
Libraries/iTasks/Internal/EngineTasks.dcl
Libraries/iTasks/Internal/EngineTasks.dcl
+1
-1
Libraries/iTasks/Internal/EngineTasks.icl
Libraries/iTasks/Internal/EngineTasks.icl
+2
-2
No files found.
Libraries/iTasks/Engine.icl
View file @
9d236b15
...
...
@@ -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
View file @
9d236b15
...
...
@@ -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
View file @
9d236b15
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment