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

51
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) (let* ((job-details
s (select-job-for-commit conn s))
(let* ((job-details (job-state
(select-job-for-commit conn s)) (assq-ref job-details 'state)))
(job-state (if job-details
(assq-ref job-details 'state))) (cond
(if job-details ((string=? job-state "succeeded")
(make-invalid-query-parameter s)
s ((string=? job-state "queued")
(cond (make-invalid-query-parameter
((string=? job-state "queued") s
`("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")
`("data unavailable, " (make-invalid-query-parameter
(a (@ (href ,(string-append s
"/revision/" s))) `("data unavailable, "
"failed to process revision"))) (a (@ (href ,(string-append
(else "/revision/" s)))
"unknown job state"))) "failed to process revision"))))
(make-invalid-query-parameter (else
s "unknown commit")))))))) (make-invalid-query-parameter
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