about summary refs log tree commit diff
diff options
context:
space:
mode:
authorGriffin Smith <grfn@gws.fyi>2020-07-23T22·27-0400
committerglittershark <grfn@gws.fyi>2020-07-23T22·30+0000
commitd8a0bd9e75876d04642aba450a724dc426f3f4b8 (patch)
treec8b0d21d9be0f46e26945d6e4801452a99f23cbe
parentbd3c19320a57d116670377f4d331ad8e26c1c09c (diff)
fix(web/panettone): Put snapshot in the right place r/1445
For some reason cl-prevalence tries to put the snapshot in the *parent
directory* of the directory that's passed to make-prevalence-system.
This is icky, but this should work around it

Fixes: #2
Fixes: #3
Fixes: #4
Change-Id: I8300246275887653586108cd7b3b033df3bca203
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1401
Tested-by: BuildkiteCI
Reviewed-by: isomer <isomer@tvl.fyi>
-rw-r--r--web/panettone/src/panettone.lisp6
1 files changed, 5 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index 827f00f407..b654dc1d6a 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -158,7 +158,11 @@ updated issue"
 (defun initialize-persistence (data-dir)
   "Initialize the Panettone persistence system, storing data in DATA-DIR"
   (ensure-directories-exist data-dir)
-  (setq *p-system* (cl-prevalence:make-prevalence-system data-dir))
+  (setq *p-system*
+        (cl-prevalence:make-prevalence-system
+         (concatenate 'string
+                      data-dir
+                      "/snapshot.xml")))
 
 
   (when (null (list-issues *p-system*))