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

Use notifications and outputs from the existing specification.

Browse source
This commit is contained in:
Mathieu Othacehe 2021-03-20 17:46:11 +01:00
parent 8f9b791e5b
commit 9d8fe4ca8a
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/cuirass/http.scm
View file

@ -526,8 +526,18 @@ into a specification record and return it."
(('POST "admin" "specification" "edit")
(let* ((spec (body->specification body))
(name (specification-name spec)))
(db-add-or-update-specification spec)
(name (specification-name spec))
(old-spec (db-get-specification name))
(old-outputs (specification-build-outputs old-spec))
(old-notifications (specification-notifications old-spec)))
;; XXX: It is not possible yet to edit build outputs and notifications
;; using the web interface. Use the outputs and notifications from the
;; existing specification.
(db-add-or-update-specification
(specification
(inherit spec)
(build-outputs old-outputs)
(notifications old-notifications)))
(respond
(build-response #:code 302
#:headers