From 1d1984e85f29e5af686241208a458b5531750169 Mon Sep 17 00:00:00 2001 From: Aspen Smith Date: Sun, 31 Mar 2024 16:06:50 -0400 Subject: fix(web/panettone): Hotfixes for full text search change - Actually define *static-dir* at build time, to get the search.png in the search box - Better logging for migration running at startup time - Fix and-where to properly exclude nil clauses - fix looking up build-time vars in the :build package Change-Id: Ia2ef3b2715d4c2efb62bbb2c72084f0f0ad09562 Reviewed-on: https://cl.tvl.fyi/c/depot/+/11325 Autosubmit: aspen Reviewed-by: sterni Tested-by: BuildkiteCI --- web/panettone/src/model.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'web/panettone/src/model.lisp') diff --git a/web/panettone/src/model.lisp b/web/panettone/src/model.lisp index 5dff14818ebe..15fe4815be1a 100644 --- a/web/panettone/src/model.lisp +++ b/web/panettone/src/model.lisp @@ -324,6 +324,7 @@ in the context of a database transaction and should perform the migration." (defun migrate () "Migrate the database, running all migrations that have not yet been run" (ensure-migrations-table) + (format t "Running migrations from ~A...~%" *migrations-dir*) (let* ((all-migrations (load-migrations)) (already-run (migrations-already-run)) (num-migrations-run 0)) @@ -350,7 +351,7 @@ in the context of a database transaction and should perform the migration." ;; otherwise, run the migration (run-migration migration)) (incf num-migrations-run)) - (format nil "Ran ~A migration~:P" num-migrations-run))) + (format t "Ran ~A migration~:P~%" num-migrations-run))) ;;; ;;; Querying -- cgit 1.4.1