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

Fix admin specification creation.

Browse source 
* src/cuirass/http.scm (url-handler): Fix admin specification creation.
This commit is contained in:
Mathieu Othacehe 2021-03-09 19:21:27 +01:00
parent eb060c990f
commit d9588c0ed8
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 14 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
src/cuirass/http.scm
View file

@ -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