ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix task action handling

Browse source 
Refactor actions to remove context
This commit is contained in:
Ray Miller 2025-01-06 21:38:32 +00:00
parent f2f88ce0dc
commit b463a828be
Signed by: ray
GPG key ID: 043F786C4CD681B8
3 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/ordo/task.scm
View file

@ -28,15 +28,16 @@
((_ description (action arg ...) kwarg ...)
(task%
description
(lambda (conn ctx)
(action conn (resolve-context-refs ctx arg) ...))
(lambda (ctx)
(action (resolve-context-refs ctx arg) ...))
kwarg ...))))
(define (run-task conn ctx task)
(match task
(define (run-task conn ctx t)
(match t
(($ <task> description action register triggers)
(format #t "RUNNING TASK ~a~%" description)
(let ((result (action conn ctx)))
(pk 'action action)
(let ((result ((action ctx) conn)))
(when register
(register-context-var! ctx register result))
(when triggers