about summary refs log tree commit diff
path: root/src/gemma.lisp
diff options
context:
space:
mode:
authorVincent Ambo <tazjin@gmail.com>2017-12-21T00·27+0100
committerVincent Ambo <tazjin@gmail.com>2017-12-21T00·27+0100
commit8d1c9df43458b0e4c137a17615256b8cb53be5f0 (patch)
tree7f9e404c11604ba3166660448575e0300a36de6e /src/gemma.lisp
parenta8d46a358e9bef845fc6d89d3e7551910f0b3d47 (diff)
fix(lisp): Automatically snapshot after task completions
Diffstat (limited to 'src/gemma.lisp')
-rw-r--r--src/gemma.lisp3
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