From d8a0bd9e75876d04642aba450a724dc426f3f4b8 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Thu, 23 Jul 2020 18:27:42 -0400 Subject: fix(web/panettone): Put snapshot in the right place 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 --- web/panettone/src/panettone.lisp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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*)) -- cgit 1.4.1