diff options
| -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 |