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

Don't require #:name keyword to create task

Browse source
This commit is contained in:
Ray Miller 2025-07-06 17:06:33 +01:00
parent f83fde7ad7
commit 1efa10ef07
Signed by: ray
GPG key ID: 043F786C4CD681B8
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/uptime.scm
View file

@ -1,7 +1,7 @@
(use-modules (ordo core) (use-modules (ordo core)
(ordo action remote-cmd)) (ordo action remote-cmd))
(execute (task #:name "uptime" (execute (task "uptime"
#:action remote-cmd #:action remote-cmd
#:args (list "uptime" #:return car #:check? #t)) #:args (list "uptime" #:return car #:check? #t))
'all 'all

2
ordo/core.scm
View file

@ -62,7 +62,7 @@ this program. If not, see <https://www.gnu.org/licenses/>.
(args #:init-keyword #:args #:init-form (list) #:getter task-args) (args #:init-keyword #:args #:init-form (list) #:getter task-args)
(trigger #:init-keyword #:trigger #:init-form (list) #:getter task-trigger)) (trigger #:init-keyword #:trigger #:init-form (list) #:getter task-trigger))
(define (task . args) (apply make <task> args)) (define (task name . args) (apply make <task> #:name name args))
(define (task? x) (is-a? x <task>)) (define (task? x) (is-a? x <task>))
(define-method (execute% (task <task>) (conn <connection>)) (define-method (execute% (task <task>) (conn <connection>))