From 9a9f37f209c456c390ea884ba57bd2af8f6aaf8b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 27 Mar 2013 00:06:04 +0100
Subject: [PATCH] hydra-eval-guile-jobs: Adjust to multiple-output format.

This is a followup to commit
10882a1ffdbc9c6050c0528cf95be98fb5541d50 ("Add multiple output
support").

* src/script/hydra-eval-guile-jobs.in (job-evaluations->sxml): Return
  several `output' tags in the body, and remove the `outPath' attribute
  of `job'.
---
 src/script/hydra-eval-guile-jobs.in | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/script/hydra-eval-guile-jobs.in b/src/script/hydra-eval-guile-jobs.in
index bd841cdd..cefa64fc 100644
--- a/src/script/hydra-eval-guile-jobs.in
+++ b/src/script/hydra-eval-guile-jobs.in
@@ -91,17 +91,11 @@ symbol/thunk pairs."
                 ;; XXX: Add <arg ...> tags?
                 `(job (@ (jobName ,name)
                          (drvPath ,drv)
-                         (outPath
-                          ;; Resolve Guix modules lazily.
-                          ,((guix-variable 'derivations
-                                           'derivation-path->output-path)
-                            drv))
                          ,@(opt-attr 'homepage 'home-page)
                          (license
                           ,(let loop ((license (assoc-ref result 'license)))
                              (match license
                                ((? struct?)
-                                ;; XXX: hack to access <license> objects
                                 (struct-ref license 0))
                                ((l ...)
                                 (string-join (map loop l)))
@@ -129,6 +123,14 @@ symbol/thunk pairs."
                              (compose %derivation-system
                                       (guix-variable 'derivations
                                                      'read-derivation)))))
+                      ;; Resolve Guix modules lazily.
+                      ,(map (match-lambda
+                             ((name . path)
+                              `(output (@ (name ,name) (path ,path)))))
+                            ((guix-variable 'derivations
+                                            'derivation-path->output-paths)
+                              drv))
+
                       "\n"))))
             jobs))))