From bbf8011c959cc9013f752cf5a5ad7c128acbabba Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 1 Jul 2020 19:57:06 +0100 Subject: [PATCH] Fix a bug with the derivation and output history JSON representation Thanks to zimoun for reporting. --- guix-data-service/web/repository/controller.scm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index f60fb69..2575170 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -365,7 +365,8 @@ first-guix-revision-commit first-datetime last-guix-revision-commit - last-datetime) + last-datetime + builds) `((version . ,package-version) (derivation . ,derivation-file-name) (first_revision @@ -373,7 +374,9 @@ (datetime . ,first-datetime))) (last_revision . ((commit . ,last-guix-revision-commit) - (datetime . ,last-datetime)))))) + (datetime . ,last-datetime))) + (builds + . ,(list->vector builds))))) package-derivations)))))) (else (render-html @@ -430,7 +433,8 @@ first-guix-revision-commit first-datetime last-guix-revision-commit - last-datetime) + last-datetime + builds) `((version . ,package-version) (derivation . ,derivation-file-name) (first_revision @@ -438,7 +442,9 @@ (datetime . ,first-datetime))) (last_revision . ((commit . ,last-guix-revision-commit) - (datetime . ,last-datetime)))))) + (datetime . ,last-datetime))) + (builds + . ,(list->vector builds))))) package-outputs)))))) (else (render-html