about summary refs log tree commit diff
path: root/web/panettone/src/model.lisp
diff options
context:
space:
mode:
authorAspen Smith <root@gws.fyi>2024-03-31T20·06-0400
committerclbot <clbot@tvl.fyi>2024-03-31T20·58+0000
commit1d1984e85f29e5af686241208a458b5531750169 (patch)
treec21b52ffa05ba1f03276c58ac96a60a2379785ab /web/panettone/src/model.lisp
parentefe7e8e63abfc7589244541c7e7cf3dbb0ba66bf (diff)
fix(web/panettone): Hotfixes for full text search change r/7834
- 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 <root@gws.fyi>
Reviewed-by: sterni <sternenseemann@systemli.org>
Tested-by: BuildkiteCI
Diffstat (limited to 'web/panettone/src/model.lisp')
-rw-r--r--web/panettone/src/model.lisp3
1 files changed, 2 insertions, 1 deletions
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