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

[Manolis Fragkiskos Ragkousis]

phant0mas pushed a commit to branch master
in repository guix.

commit b005a37ac23f97d6859152c2a86b7af5d26ebd5c
Author: Manolis Ragkousis <address@hidden>
Date:   Sat Apr 8 16:49:09 2017 +0300

    gnu: hurd: Add hurd-source-url procedure.
    
    * gnu/packages/hurd.scm (hurd-source-url): New procedure.
      (hurd-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 b5da4cb..12fce54 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -39,6 +39,10 @@
   (string-append "mirror://gnu/gnumach/gnumach-"
                  version ".tar.gz"))
 
+(define (hurd-source-url version)
+  (string-append "mirror://gnu/hurd/hurd-"
+                 version ".tar.gz"))
+
 (define-public gnumach-headers
   (package
     (name "gnumach-headers")
@@ -113,8 +117,7 @@ communication.")
     (version "0.9")
     (source (origin
               (method url-fetch)
-              (uri (string-append "mirror://gnu/hurd/hurd-"
-                                  version ".tar.gz"))
+              (uri (hurd-source-url version))
               (sha256
                (base32
                 "1nw9gly0n7pyv3cpfm4mmxy4yccrx4g0lyrvd3vk2vil26jpbggw"))))