guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Update parse-commit for the guix-revision changes

Browse source
This commit is contained in:
Christopher Baines 2021-02-04 10:28:04 +00:00
parent 4c14e16148
commit 39f52e3a2e
1 changed files with 27 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
guix-data-service/web/compare/controller.scm
View file

@ -57,30 +57,33 @@
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection
(lambda (conn)
(if (guix-commit-exists? conn s)
s
(let* ((job-details
(select-job-for-commit conn s))
(job-state
(assq-ref job-details 'state)))
(if job-details
(make-invalid-query-parameter
s
(cond
((string=? job-state "queued")
`("data unavailable, "
(a (@ (href ,(string-append
"/revision/" s)))
"yet to process revision")))
((string=? job-state "failed")
`("data unavailable, "
(a (@ (href ,(string-append
"/revision/" s)))
"failed to process revision")))
(else
"unknown job state")))
(make-invalid-query-parameter
s "unknown commit"))))))))
(let* ((job-details
(select-job-for-commit conn s))
(job-state
(assq-ref job-details 'state)))
(if job-details
(cond
((string=? job-state "succeeded")
s)
((string=? job-state "queued")
(make-invalid-query-parameter
s
`("data unavailable, "
(a (@ (href ,(string-append
"/revision/" s)))
"yet to process revision"))))
((string=? job-state "failed")
(make-invalid-query-parameter
s
`("data unavailable, "
(a (@ (href ,(string-append
"/revision/" s)))
"failed to process revision"))))
(else
(make-invalid-query-parameter
s "unknown job state")))
(make-invalid-query-parameter
s "unknown commit")))))))
(define (parse-derivation file-name)
(if (parallel-via-thread-pool-channel