guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

database: db-get-builds: Remove debugging output. 

* src/cuirass/database.scm (db-get-builds): Remove debugging output.
(db-get-build): Remove debugging output.
This commit is contained in:
Danny Milosavljevic 2018-02-19 22:27:44 +01:00
parent 0f877a1c19
commit 7be12b9b0f
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/cuirass/database.scm
View File

@ -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)