We planned to upgrade GitLab and Mattermost to the latest version this Friday morning. Expect some downtime!

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