diff options
| author | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:27:44 +0100 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2018-02-19 22:28:21 +0100 |
| commit | 7be12b9b0f20480720519b968a435ab9453ae527 (patch) | |
| tree | 940315427347c5080424682422b942524e474b48 /src | |
| parent | 0f877a1c197e229d7b6797c6d01540d6743da756 (diff) | |
| download | cuirass-7be12b9b0f20480720519b968a435ab9453ae527.tar cuirass-7be12b9b0f20480720519b968a435ab9453ae527.tar.gz | |
database: db-get-builds: Remove debugging output.
* src/cuirass/database.scm (db-get-builds): Remove debugging output.
(db-get-build): Remove debugging output.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/database.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index c07cf1b..df31122 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -486,11 +486,6 @@ AND (:system IS NULL OR (:system = Derivations.system)) \ AND (:status IS NULL OR (:status = 'done' AND Builds.status >= 0) OR (:status = 'pending' AND Builds.status < 0)) \ ORDER BY ~a ~a, Builds.id ASC LIMIT :nr;" order-column-name order)) (stmt (sqlite-prepare db stmt-text #:cache? #t))) - (write "ID") - (write filters) - (write (assqx-ref filters 'id)) - (newline) - (force-output) (sqlite-bind-arguments stmt #:id (assqx-ref filters 'id) #:project (assqx-ref filters 'project) #:jobset (assqx-ref filters 'jobset) @@ -506,10 +501,6 @@ ORDER BY ~a ~a, Builds.id ASC LIMIT :nr;" order-column-name order)) (define (db-get-build db id) "Retrieve a build in database DB which corresponds to ID." - (write "XXX") - (write (db-get-builds db `((id ,id)))) - (newline) - (force-output) (match (db-get-builds db `((id ,id))) ((build) build) |