diff options
Diffstat (limited to 'db/migrations.rkt')
| -rw-r--r-- | db/migrations.rkt | 10 |
1 files changed, 3 insertions, 7 deletions
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)] |