Don't require #:name keyword to create task
This commit is contained in:
parent
f83fde7ad7
commit
1efa10ef07
2 changed files with 2 additions and 2 deletions
|
@ -1,7 +1,7 @@
|
|||
(use-modules (ordo core)
|
||||
(ordo action remote-cmd))
|
||||
|
||||
(execute (task #:name "uptime"
|
||||
(execute (task "uptime"
|
||||
#:action remote-cmd
|
||||
#:args (list "uptime" #:return car #:check? #t))
|
||||
'all
|
||||
|
|
|
@ -62,7 +62,7 @@ this program. If not, see <https://www.gnu.org/licenses/>.
|
|||
(args #:init-keyword #:args #:init-form (list) #:getter task-args)
|
||||
(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-method (execute% (task <task>) (conn <connection>))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue