diff options
| author | Munyoki Kilyungi | 2025-12-23 20:09:10 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-13 12:02:51 +0300 |
| commit | 21124e97881729999dbb6f32fcb37e53e1a55bde (patch) | |
| tree | 202a8541701701533b0f122945b36dbb16e8bde6 | |
| parent | 30c17dde2647ede993e13ad2c9d6fbf553197392 (diff) | |
| download | gn-transform-databases-21124e97881729999dbb6f32fcb37e53e1a55bde.tar.gz | |
Explicitly set the connection string to utf8.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rw-r--r-- | transform/sql.scm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/transform/sql.scm b/transform/sql.scm index a8962c8..daedf97 100644 --- a/transform/sql.scm +++ b/transform/sql.scm @@ -102,13 +102,14 @@ (dbi-get_row db)) (define (call-with-target-database connection-settings proc) - (call-with-database "mysql" (string-join - (list (assq-ref connection-settings 'sql-username) - (assq-ref connection-settings 'sql-password) - (assq-ref connection-settings 'sql-database) - "tcp" - (assq-ref connection-settings 'sql-host) - (number->string - (assq-ref connection-settings 'sql-port))) - ":") + (call-with-database "mysql" (string-append (string-join + (list (assq-ref connection-settings 'sql-username) + (assq-ref connection-settings 'sql-password) + (assq-ref connection-settings 'sql-database) + "tcp" + (assq-ref connection-settings 'sql-host) + (number->string + (assq-ref connection-settings 'sql-port))) + ":") + "?charset=utf8") proc)) |