maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(lisp): Automatically snapshot after task completions

Browse source
This commit is contained in:
Vincent Ambo 2017-12-21 01:27:06 +01:00
parent a8d46a358e
commit 8d1c9df434
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/gemma.lisp
View file

@ -94,7 +94,8 @@ maximum interval."
"Mark the task with NAME as completed, either now or AT specified time." "Mark the task with NAME as completed, either now or AT specified time."
(cl-prevalence:tx-change-object-slots *p-tasks* 'task (cl-prevalence:tx-change-object-slots *p-tasks* 'task
(id (get-task name)) (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 ;; Define web API