Commit 49b3ca5b authored by Tim Steenvoorden's avatar Tim Steenvoorden

comment on forever task

parent fe254a7c
......@@ -17,15 +17,14 @@ import iTasks.Extensions.Editors.DynamicEditor
Start world = doTasks editTask world
editTask =
forever
( enterInformation ("Contruct a task", info1) [EnterUsing id $ dynamicEditor taskEditor]
>>= \v ->
viewInformation ("Evaluate the task", info2) [] ()
||- (evalTaskConstExpr (toValue taskEditor v) <<@ ApplyLayout frameCompact)
>>= viewInformation ("Done!", info3) []
>>= return
)
editTask :: Task Value
editTask = forever $
enterInformation ("Contruct a task", info1) [EnterUsing id $ dynamicEditor taskEditor]
>>= \v ->
viewInformation ("Evaluate the task", info2) [] ()
||- (evalTaskExpr (toValue taskEditor v) <<@ ApplyLayout frameCompact)
>>= viewInformation ("Done!", info3) []
>>= return // Extra return to disable `Continue` button
where
info1 :: String
info1 = "Select the editors and combinators you'd like to use. When you're ready, push the 'Continue' button below to run your program."
......
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