10/13: gnu: Add go-github-com-prometheus-union.

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit f07ccbc25605c580439e7618523b06192b083208
Author: Leo Famulari <address@hidden>
Date:   Sun Jan 28 20:20:06 2018 -0500

    gnu: Add go-github-com-prometheus-union.
    
    * gnu/packages/syncthing.scm (go-github-com-prometheus-union): New
    variable.
---
 gnu/packages/syncthing.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/syncthing.scm b/gnu/packages/syncthing.scm
index 1087bcb..7029fdc 100644
--- a/gnu/packages/syncthing.scm
+++ b/gnu/packages/syncthing.scm
@@ -2180,3 +2180,28 @@ instrumenting application code, and one for creating 
clients that talk to the
 Prometheus HTTP API.")
       (home-page "https://github.com/prometheus/client_golang";)
       (license asl2.0))))
+
+(define* (go-github-com-prometheus-union
+           #:optional (packages (list go-github-com-client-golang-prometheus
+                                      
go-github-com-client-golang-prometheus-promhttp)))
+  (package
+    (name "go-github-com-prometheus-union")
+    (version (package-version go-github-com-client-golang-prometheus))
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     '(#:modules ((guix build union))
+       #:builder (begin
+                   (use-modules (ice-9 match)
+                                (guix build union))
+                   (match %build-inputs
+                     (((names . directories) ...)
+                      (union-build (assoc-ref %outputs "out")
+                                   directories))))))
+    (inputs (map (lambda (package)
+                   (list (package-name package) package))
+                 packages))
+    (synopsis "Union of Go Prometheus libraries")
+    (description "This is a union of Go Prometheus libraries")
+    (home-page (package-home-page go-github-com-client-golang-prometheus))
+    (license (package-license go-github-com-client-golang-prometheus))))