Commit 84d023a5 authored by Tim Steenvoorden's avatar Tim Steenvoorden

move forever to combinator group

parent 72212862
Pipeline #25362 failed with stage
in 58 seconds
......@@ -167,6 +167,14 @@ taskEditor = DynamicEditor
-> Typed TaskExpr (Task a)
)
<<@@@ applyVerticalBoxedLayout
, functionConsDyn "Forever" "forever"
( dynamic \(Typed taskExpr) -> Typed (Forever taskExpr) ::
A.a:
(Typed TaskExpr (Task a))
-> Typed TaskExpr (Task a)
)
<<@@@ applyVerticalBoxedLayout
]
// , functionConsDyn "When" "guarded sequence"
// ( dynamic \(Typed task1) (Typed steps) -> Typed (When task1 steps) ::
// // Typed (When task1 [(expr, pred, tfExpr) \\ (Typed expr, pred, Typed tfExpr) <- steps]) ::
......@@ -194,7 +202,7 @@ taskEditor = DynamicEditor
// )
// <<@@@ HideIfOnlyChoice
// <<@@@ AddLabels [Just "name", Just "predicate", Just "continuation"]
]
// ]
, DynamicConsGroup "Editors"
[ functionConsDyn "Enter" "enter"
( dynamic \(Typed ty) s -> Typed (EnterInfo ty s) ::
......@@ -262,15 +270,6 @@ taskEditor = DynamicEditor
<<@@@ applyHorizontalBoxedLayout
<<@@@ AddLabels [ Just "message" ]
]
, DynamicConsGroup "Special"
[ functionConsDyn "Forever" "repeat forever"
( dynamic \(Typed taskExpr) -> Typed (Forever taskExpr) ::
A.a:
(Typed TaskExpr (Task a))
-> Typed TaskExpr (Task a)
)
<<@@@ applyVerticalBoxedLayout
]
// Non-task functions:
, DynamicConsGroup "Basics"
[ functionConsDyn "Identity" "this value"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment