cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Download patch file Download diff file Expand all files Collapse all files

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

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