branch master updated: http: /jobsets properly renders non-trivial build types.

[Ludovic Courtès]

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

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

The following commit(s) were added to refs/heads/master by this push:
     new d4d0368  http: /jobsets properly renders non-trivial build types.
d4d0368 is described below

commit d4d0368cb8dab837b9b888ce9d75c19752d386fd
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Sep 6 12:28:31 2023 +0200

    http: /jobsets properly renders non-trivial build types.
    
    Previously we’d get 500 for anything other than a symbol.
    
    * src/cuirass/http.scm (specification->json-object): Handle build types
    other than symbols describing a subset.
---
 src/cuirass/http.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index eea328e..c0d4639 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -174,7 +174,17 @@
       `((type . mastodon)))))
 
   `((name . ,(specification-name spec))
-    (build . ,(specification-build spec))
+    (build . ,(match (specification-build spec)
+                ((? symbol? subset)
+                 subset)
+                (('packages packages ...)
+                 (cons 'packages (list->vector packages)))
+                (('channels channels ...)
+                 (cons 'channels (list->vector channels)))
+                (('manifests manifests ...)
+                 (cons 'manifests (list->vector manifests)))
+                (_
+                 'custom)))
     (channels . ,(list->vector
                   (map channel->json-object
                        (specification-channels spec))))