01/01: gnu: hurd: Add gnumach-source-url procedure.

[Manolis Fragkiskos Ragkousis]

phant0mas pushed a commit to branch master
in repository guix.

commit 41bfcac35c99918e28753cc601ca9b6c0447d9b0
Author: Manolis Ragkousis <address@hidden>
Date:   Tue Jan 10 19:36:44 2017 +0200

    gnu: hurd: Add gnumach-source-url procedure.
    
    * gnu/packages/hurd.scm (gnumach-source-url): New procedure.
      (gnumach-headers)[source]: Adjust accordingly.
---
 gnu/packages/hurd.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 557091d..ba91b60 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -35,6 +35,10 @@
   (and (string-suffix? "-gnu" triplet)
        (not (string-contains triplet "linux"))))
 
+(define (gnumach-source-url version)
+  (string-append "mirror://gnu/gnumach/gnumach-"
+                 version ".tar.gz"))
+
 (define-public gnumach-headers
   (package
     (name "gnumach-headers")
@@ -42,8 +46,7 @@
     (source
      (origin
       (method url-fetch)
-      (uri (string-append "mirror://gnu/gnumach/gnumach-"
-                          version ".tar.gz"))
+      (uri (gnumach-source-url version))
       (sha256
        (base32
         "02hygsfpd2dljl5lg1vjjg9pizi9jyxd4aiiqzjshz6jax62jm9f"))))