fix(lisp): Automatically snapshot after task completions
This commit is contained in:
parent
a8d46a358e
commit
8d1c9df434
1 changed files with 2 additions and 1 deletions
|
@ -94,7 +94,8 @@ maximum interval."
|
|||
"Mark the task with NAME as completed, either now or AT specified time."
|
||||
(cl-prevalence:tx-change-object-slots *p-tasks* 'task
|
||||
(id (get-task name))
|
||||
`((done-at ,(or at (local-time:now))))))
|
||||
`((done-at ,(or at (local-time:now)))))
|
||||
(cl-prevalence:snapshot *p-tasks*))
|
||||
|
||||
;;
|
||||
;; Define web API
|
||||
|
|
Loading…
Reference in a new issue