Commit 499a0e7b authored by Bas Lijnse's avatar Bas Lijnse

Fixed missing migration from interact to interactR.

parent 7e74331a
Pipeline #20711 passed with stage
in 4 minutes and 45 seconds
......@@ -17,7 +17,7 @@ expPromptUI msg
minimalInteractUI = skip (testTaskOutput "Initial UI of minimal interaction task" task events exp checkEqual)
where
task :: Task ((),String)
task = interact "TEST" unitShare handlers gEditor{|*|}
task = interactR "TEST" unitShare handlers gEditor{|*|}
handlers = {onInit = \() -> ((),Update "Hello world"), onEdit = \_ l v -> (l,fromJust v,Nothing), onRefresh = \_ l v -> (l,fromJust v,Nothing)}
events = [Left ResetEvent]
......
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