09/44: gnu: Add dde-sources.

[guix-commits]

janneke pushed a commit to branch wip-hurd-vm
in repository guix.

commit 510d43fb6034c0e5e4e2b421abc3286d99a5cd56
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Tue Apr 14 12:45:15 2020 +0200

    gnu: Add dde-sources.
    
    * gnu/packages/hurd.scm (dde-sources): New variable.
    (hurd)[native-inputs]: Add it.
---
 gnu/packages/hurd.scm | 27 ++++++++++++++-------------
 1 file changed, 14 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index bbe66c0..0618f9f 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -356,6 +356,19 @@ boot, since this cannot be done from GNU/Linux."
   (with-parameters ((%current-target-system "i586-pc-gnu"))
     (program-file "rc" rc)))
 
+(define dde-sources
+  ;; This is the current tip of the dde branch
+  (let ((commit "ac1c7eb7a8b24b7469bed5365be38a968d59a136"))
+    (origin
+      (method git-fetch)
+      (uri (git-reference
+            (url "https://git.savannah.gnu.org/git/hurd/incubator.git";)
+            (commit commit)))
+      (sha256
+       (base32
+        "1vryinbg75xpydfrv9dbgfnds6knlh8l8bk2rxp32y9dc58z0692"))
+      (file-name (git-file-name "dde" commit)))))
+
 (define-public hurd
   (package
     (name "hurd")
@@ -512,19 +525,7 @@ fsysopts / --writable\n"))
                    mig))
        ("perl" ,perl)
        ("texinfo" ,texinfo-4)
-       ("dde-sources"
-        ;; This is the current tip of the dde branch
-        ,(let ((commit "ac1c7eb7a8b24b7469bed5365be38a968d59a136"))
-           (origin
-             (method git-fetch)
-             (uri (git-reference
-                   (url "https://git.savannah.gnu.org/git/hurd/incubator.git";)
-                   (commit commit)))
-             (sha256
-              (base32
-               "1vryinbg75xpydfrv9dbgfnds6knlh8l8bk2rxp32y9dc58z0692"))
-             (file-name (string-append "dde-checkout-"
-                                       (string-take commit 7))))))))
+       ("dde-sources" ,dde-sources)))
     (supported-systems %hurd-systems)
     (home-page "https://www.gnu.org/software/hurd/hurd.html";)
     (synopsis "The kernel servers for the GNU operating system")