fix(lisp): Automatically snapshot after task completions

This commit is contained in:
Vincent Ambo 2017-12-21 01:27:06 +01:00
parent a8d46a358e
commit 8d1c9df434

View file

@ -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