[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Fix admin specification creation.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: Fix admin specification creation. |
Date: |
Tue, 09 Mar 2021 13:22:00 -0500 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Fix admin specification creation.,
Mathieu Othacehe <=