[no subject]

[Mathieu Othacehe]

branch: master
commit 9d8fe4ca8a782a3ae6e610c938894bd9ae5b1dab
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat Mar 20 17:46:11 2021 +0100

    Use notifications and outputs from the existing specification.
---
 src/cuirass/http.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 7c7495b..613b8be 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -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