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
75db7734
Commit
75db7734
authored
Aug 02, 2018
by
Mart Lubbers
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix sequence through fixing foreverStIf
parent
8aedd474
Pipeline
#13112
failed with stage
in 2 minutes and 16 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
5 deletions
+4
-5
Libraries/iTasks/WF/Combinators/Common.icl
Libraries/iTasks/WF/Combinators/Common.icl
+4
-5
No files found.
Libraries/iTasks/WF/Combinators/Common.icl
View file @
75db7734
...
...
@@ -99,14 +99,13 @@ sequence tasks = foreverStIf
//Run the first task and add it to the accumulator
(\(
acc
,
[
todo
:
todos
])->
todo
>>-
\
t
->
treturn
([
t
:
acc
],
todos
))
//When done, just return the accumulator
@
fst
@
reverse
o
fst
foreverStIf
::
(
a
->
Bool
)
a
!(
a
->
Task
a
)
->
Task
a
|
iTask
a
foreverStIf
pred
st
t
=
parallel
[(
Embedded
,
par
st
Nothing
)]
[]
>>
-
\
tv
->
case
t
v
of
[(_,
Value
i
True
)]
=
treturn
i
_
=
throw
"Corrupt parallel in foreverStIf"
>>
*
[
OnValue
(
withValue
\
v
->
case
v
of
[(_,
Value
i
True
)]
=
Just
(
treturn
i
)
_
=
Nothing
)]
where
par
st
(
Just
tid
)
tlist
=
removeTask
tid
tlist
>>-
\_->
par
st
Nothing
tlist
par
st
Nothing
tlist
...
...
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