Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
clean-and-itasks
iTasks-SDK
Commits
8d766aab
Commit
8d766aab
authored
Sep 04, 2019
by
Steffen Michels
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
task value of interaction task after onRefresh is determined by editor
parent
ff1fa23b
Pipeline
#28969
failed with stage
in 2 minutes and 30 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
Libraries/iTasks/WF/Tasks/Core.icl
Libraries/iTasks/WF/Tasks/Core.icl
+5
-4
No files found.
Libraries/iTasks/WF/Tasks/Core.icl
View file @
8d766aab
...
...
@@ -165,17 +165,18 @@ evalInteract l v st mode sds handlers editor writefun event=:(RefreshEvent taskI
#
(
l
,
v
,
mbf
)
=
handlers
.
InteractionHandlers
.
onRefresh
r
l
v
=
case
withVSt
taskId
(
editor
.
Editor
.
onRefresh
[]
v
st
)
iworld
of
(
Error
e
,
iworld
)
=
(
ExceptionResult
(
exception
e
),
iworld
)
(
Ok
(
change
,
st
),
iworld
)
(
Ok
(
change
,
st
),
iworld
)
#
v
=
editor
.
Editor
.
valueFromState
st
=
case
mbf
of
Just
f
=
writefun
f
sds
NoValue
(\_->
change
)
(\_->
evalInteract
l
(
Just
v
)
st
mode
sds
handlers
editor
writefun
)
(\_->
evalInteract
l
v
st
mode
sds
handlers
editor
writefun
)
event
evalOpts
iworld
Nothing
=
(
ValueResult
(
Value
(
l
,
v
)
False
)
(
maybe
NoValue
(\
v
->
Value
(
l
,
v
)
False
)
v
)
(
mkTaskEvalInfo
lastEval
)
change
(
Task
(
evalInteract
l
(
Just
v
)
st
mode
sds
handlers
editor
writefun
))
(
Task
(
evalInteract
l
v
st
mode
sds
handlers
editor
writefun
))
,
iworld
)
)
event
evalOpts
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