From 7af921010521b1108144c85259dae4e435a78262 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 22 Nov 2025 18:32:40 +0100 Subject: Remove superfluous debugging printing. --- db/migrations.rkt | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'db/migrations.rkt') diff --git a/db/migrations.rkt b/db/migrations.rkt index 0147210..dfa5c43 100644 --- a/db/migrations.rkt +++ b/db/migrations.rkt @@ -9,14 +9,10 @@ (define migrations-box (box '())) (define (migrate-all!) - (printf "Applying migrations on connection ~a...\n" - (dbsystem-name (connection-dbsystem (current-conn)))) (for ([pair (in-list (unbox migrations-box))]) - (match pair - [(cons migration-name stmts) - (with-tx (for ([stmt (in-list stmts)]) - (query-exec (current-conn) stmt))) - (printf "Applied migration: ~a\n" migration-name)]))) + (match-define (cons migration-name stmts) pair) + (with-tx (for ([stmt (in-list stmts)]) + (query-exec (current-conn) stmt))))) (define-syntax-rule (define-migration migration-name sql) (let ([migrations (unbox migrations-box)] -- cgit v1.2.3