diff options
| author | Vincent Ambo <tazjin@gmail.com> | 2017-12-21T00·27+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@gmail.com> | 2017-12-21T00·27+0100 |
| commit | 8d1c9df43458b0e4c137a17615256b8cb53be5f0 (patch) | |
| tree | 7f9e404c11604ba3166660448575e0300a36de6e /src/gemma.lisp | |
| parent | a8d46a358e9bef845fc6d89d3e7551910f0b3d47 (diff) | |
fix(lisp): Automatically snapshot after task completions
Diffstat (limited to 'src/gemma.lisp')
| -rw-r--r-- | src/gemma.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/gemma.lisp b/src/gemma.lisp index e103ed92c266..e0e52854bed8 100644 --- a/src/gemma.lisp +++ b/src/gemma.lisp @@ -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 |