diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-10-05 10:29:26 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-10-05 10:29:26 +0100 |
| commit | 65f490f944a660377d78e69c16fae482640ff64f (patch) | |
| tree | bc5ee2a6b8715d6952adf7b4bd6307cc1973d194 | |
| parent | 16133771a31bcbd396f24583054a618bb21e5e57 (diff) | |
| download | nar-herder-65f490f944a660377d78e69c16fae482640ff64f.tar nar-herder-65f490f944a660377d78e69c16fae482640ff64f.tar.gz | |
Tweak dump database
| -rw-r--r-- | nar-herder/database.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index e69eabb..eb16bd2 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -602,9 +602,9 @@ PRAGMA optimize;"))) (lambda (db) (sqlite-exec db - (string-append "VACUUM INTO '" name "';")) + (string-append "VACUUM INTO '" name "';")))) - (strip-db name)))) + (strip-db name)) (define (last-insert-rowid db) (let ((statement |