diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-01-24 19:46:25 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-01-24 19:46:25 +0000 |
| commit | 9eb96d1b197d674d34daf4de8c75fa9ee337f583 (patch) | |
| tree | 40b047f419fe8abf3fe5f46774012ad30c57f492 | |
| parent | c238cc9f87926a12ad34b989ac53d7a9549f8f5c (diff) | |
| download | cuirass-9eb96d1b197d674d34daf4de8c75fa9ee337f583.tar cuirass-9eb96d1b197d674d34daf4de8c75fa9ee337f583.tar.gz | |
database: Don't return rowid from db-add-input.
As it is unused from where db-add-input is called.
* src/cuirass/database.scm (db-add-input): Don't call and
return (last-insert-rowid).
| -rw-r--r-- | src/cuirass/database.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 308b5c3..1643916 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -303,8 +303,7 @@ tag, revision, no_compile_p) VALUES (" (assq-ref input #:branch) ", " (assq-ref input #:tag) ", " (assq-ref input #:commit) ", " - (if (assq-ref input #:no-compile?) 1 0) ");") - (last-insert-rowid db))) + (if (assq-ref input #:no-compile?) 1 0) ");"))) (define (db-add-checkout spec-name eval-id checkout) "Insert CHECKOUT associated with SPEC-NAME and EVAL-ID. If a checkout with |