From aad72327d17a1479f586af3cdb7123ffec2d9719 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <ricardo.wurmus@mdc-berlin.de>
Date: Tue, 23 Jun 2015 16:35:16 +0200
Subject: view: json: Add "location" field to JSON representation.

* guix/web/view/json.scm (package->json): Add "location" field.
---
 guix/web/view/json.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/web/view/json.scm b/guix/web/view/json.scm
index e3f8bc1..73b78f3 100644
--- a/guix/web/view/json.scm
+++ b/guix/web/view/json.scm
@@ -25,6 +25,7 @@
   #:use-module (guix licenses)
   #:use-module (guix packages)
   #:use-module (guix profiles)
+  #:use-module (guix utils)
   #:use-module (gnu packages)
   #:use-module (guix web package)
   #:export (all-packages-json
@@ -63,6 +64,9 @@
     ("version" ,(package-version package))
     ("synopsis" ,(package-synopsis package))
     ("description" ,(package-description package))
+    ("location" ,(last (string-split (location-file
+                                      (package-location package))
+                                     #\/)))
     ("homepage" ,(package-home-page package))
     ("license" ,(serialize-license package))
     ,@(if serialize-inputs?
-- 
cgit v1.2.3