branch master updated: Fix admin specification creation.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new d9588c0  Fix admin specification creation.
d9588c0 is described below

commit d9588c0ed85f7415333dac5f81c2ab41fea1fc2a
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Mar 9 19:21:27 2021 +0100

    Fix admin specification creation.
    
    * src/cuirass/http.scm (url-handler): Fix admin specification creation.
---
 src/cuirass/http.scm | 35 ++++++++++++++---------------------
 1 file changed, 14 insertions(+), 21 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 2ea8b89..2e28e79 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -463,32 +463,25 @@ Hydra format."
      (match (string-split (utf8->string body) #\=)
        (("spec-name" name)
         (db-add-specification
-         `((#:name . ,name)
-           (#:load-path-inputs . ())
-           (#:package-path-inputs . ())
-           (#:proc . cuirass-jobs)
-           (#:proc-input . ,name)
-           (#:proc-file . "build-aux/cuirass/gnu-system.scm")
-           (#:proc-args . (systems "x86_64-linux"
-                                   "i686-linux"
-                                   "armhf-linux"
-                                   "aarch64-linux"))
-           (#:inputs .
-            '((#:name . ,name)
-              (#:url . "https://git.savannah.gnu.org/git/guix.git";)
-              (#:load-path . ".")
-              (#:branch . ,name)
-              (#:no-compile? . #t)))
-           (#:build-outputs . ())))
+         (specification
+          (name name)
+          (build 'all)
+          (channels
+           (list (channel
+                  (inherit %default-guix-channel)
+                  (branch name))))
+          (systems '("x86_64-linux" "i686-linux" "aarch64-linux"))))
         (respond (build-response #:code 302
-                                 #:headers `((location . 
,(string->uri-reference
-                                                           
"/admin/specifications"))))
+                                 #:headers
+                                 `((location . ,(string->uri-reference
+                                                 "/admin/specifications"))))
                  #:body ""))))
     (('POST "admin" "specifications" "delete" name)
      (db-remove-specification name)
      (respond (build-response #:code 302
-                              #:headers `((location . ,(string->uri-reference
-                                                        
"/admin/specifications"))))
+                              #:headers
+                              `((location . ,(string->uri-reference
+                                              "/admin/specifications"))))
               #:body ""))
     (('GET "admin" "specifications" . rest)
      (respond-html (html-page