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
7
Merge Requests
7
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
89c507ba
Commit
89c507ba
authored
Jun 14, 2019
by
Tim Steenvoorden
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
implement OneOf combinator
parent
cad04799
Pipeline
#25329
passed with stage
in 6 minutes and 40 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
3 deletions
+15
-3
Examples/DynamicEditor/DynEditorExample.icl
Examples/DynamicEditor/DynEditorExample.icl
+15
-3
No files found.
Examples/DynamicEditor/DynEditorExample.icl
View file @
89c507ba
...
...
@@ -55,7 +55,7 @@ where
|
Then
TaskExpr
TaskFunc
|
Both
TaskExpr
TaskExpr
|
Any
TaskExpr
TaskExpr
|
One
TaskExpr
TaskExpr
|
One
Button
TaskExpr
Button
TaskExpr
::
TaskFunc
=
ThenF
TaskFunc
TaskFunc
...
...
@@ -150,9 +150,11 @@ taskEditor = DynamicEditor
)
<<@@@
applyVerticalClasses
,
functionConsDyn
"One"
"one of"
(
dynamic
\
(
Typed
task1
)
(
Typed
task2
)
->
Typed
(
One
task1
task2
)
::
(
dynamic
\
button1
(
Typed
task1
)
button2
(
Typed
task2
)
->
Typed
(
One
button1
task1
button2
task2
)
::
A
.
a
b
:
String
(
Typed
TaskExpr
(
Task
a
))
String
(
Typed
TaskExpr
(
Task
a
))
->
Typed
TaskExpr
(
Task
a
)
)
...
...
@@ -348,8 +350,18 @@ evalTaskExpr :: TaskExpr -> Task Value
evalTaskExpr
(
Done
expr
)
=
return
$
evalExpr
expr
evalTaskExpr
(
EnterInfo
(
Ty
toValue
)
msg
)
=
enterInformation
msg
[]
@
toValue
evalTaskExpr
(
Then
task
taskFunc
)
=
evalTaskExpr
task
>>=
evalTaskFunc
taskFunc
evalTaskExpr
(
Any
task1
task2
)
=
(
evalTaskExpr
task1
-||-
evalTaskExpr
task2
)
<<@
ApplyLayout
arrangeHorizontal
evalTaskExpr
(
Both
task1
task2
)
=
(
evalTaskExpr
task1
-&&-
evalTaskExpr
task2
)
<<@
ApplyLayout
arrangeHorizontal
@
\(
a
,
b
)
->
VTuple
a
b
evalTaskExpr
(
Any
task1
task2
)
=
(
evalTaskExpr
task1
-||-
evalTaskExpr
task2
)
<<@
ApplyLayout
arrangeHorizontal
evalTaskExpr
(
One
button1
task1
button2
task2
)
=
viewInformation
"Make a choice"
[]
()
>>*
[
OnAction
(
Action
button1
)
(
ifValue
(
const
True
)
(\_
->
evalTaskExpr
task1
))
,
OnAction
(
Action
button2
)
(
ifValue
(
const
True
)
(\_
->
evalTaskExpr
task2
))
]
evalTaskExpr
x
=
abort
$
"My brain hurts!"
+++
unlines
(
gText
{|*|}
AsMultiLine
(
Just
x
))
where
unlines
::
[
String
]
->
String
unlines
xs
=
foldr
(\
x
acc
->
x
+++
"
\n
"
+++
acc
)
""
xs
// evalTaskExpr (When task1 options) = evalTaskExpr task1
// >>* [ OnAction (Action name) (ifValue (test pred) (evalTaskFunc cont))
// \\ {name, pred, cont} <- options
...
...
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