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
73
Issues
73
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
2d6774d3
Verified
Commit
2d6774d3
authored
May 15, 2019
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Set non-zero exit code in doTasksWithOptions when parsing options or reading symbols failed as well
parent
4152c615
Pipeline
#23085
passed with stage
in 5 minutes and 41 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
2 deletions
+2
-2
Libraries/iTasks/Engine.icl
Libraries/iTasks/Engine.icl
+2
-2
No files found.
Libraries/iTasks/Engine.icl
View file @
2d6774d3
...
...
@@ -43,7 +43,7 @@ doTasksWithOptions initFun startable world
#
(
cli
,
world
)
=
getCommandLine
world
#
(
options
,
world
)
=
defaultEngineOptions
world
#
mbOptions
=
initFun
cli
options
|
mbOptions
=:(
Error
_)
=
show
(
fromError
mbOptions
)
world
|
mbOptions
=:(
Error
_)
=
show
(
fromError
mbOptions
)
(
setReturnCode
1
world
)
#
options
=
fromOk
mbOptions
#
mbIWorld
=
createIWorld
options
world
|
mbIWorld
=:
Left
_
...
...
@@ -51,7 +51,7 @@ doTasksWithOptions initFun startable world
=
show
[
err
]
(
setReturnCode
1
world
)
#
(
Right
iworld
)
=
mbIWorld
#
(
symbolsResult
,
iworld
)
=
initSymbolsShare
options
.
distributed
options
.
appName
iworld
|
symbolsResult
=:
(
Error
_)
=
show
[
"Error reading symbols while required: "
+++
fromError
symbolsResult
]
(
destroyIWorld
iworld
)
|
symbolsResult
=:
(
Error
_)
=
show
[
"Error reading symbols while required: "
+++
fromError
symbolsResult
]
(
setReturnCode
1
(
destroyIWorld
iworld
)
)
#
iworld
=
serve
(
startupTasks
options
)
(
tcpTasks
options
.
serverPort
options
.
keepaliveTime
)
(
timeout
options
.
timeout
)
iworld
=
destroyIWorld
iworld
where
...
...
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