01/02: gnu: openjdk9: Build from hg.

[guix-commits]

hoebjo pushed a commit to branch master
in repository guix.

commit b29954509f42f05f8764554d259f5a8cdd4ccc6d
Author: Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
AuthorDate: Mon Mar 13 22:26:24 2023 +0100

    gnu: openjdk9: Build from hg.
    
    * gnu/packages/java.scm (openjdk9)[source]: Use HG-DOWNLOAD.
    [homepage]: Update.
    
    This fixes <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=62071>
    for OpenJDK 9.
---
 gnu/packages/java.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/java.scm b/gnu/packages/java.scm
index 388e9d127f..a5e60b7c71 100644
--- a/gnu/packages/java.scm
+++ b/gnu/packages/java.scm
@@ -852,18 +852,17 @@ new Date();"))
     (name "openjdk")
     (version "9.181")
     (source (origin
-              (method url-fetch)
-              (uri 
"https://hg.openjdk.java.net/jdk/jdk/archive/3cc80be736f2.tar.bz2";)
-              (file-name (string-append name "-" version ".tar.bz2"))
+              (method hg-fetch)
+              (uri (hg-reference (url "https://hg.openjdk.org/jdk/jdk";)
+                                 (changeset "jdk-9+181")))
+              (file-name (hg-file-name name version))
+              (modules '((guix build utils)))
+              (snippet `(begin
+                          (for-each delete-file
+                                    (find-files "." ".*.(bin|exe|jar)$"))))
               (sha256
                (base32
-                "01ihmyf7k5z17wbr7xig7y40l9f01d5zjgkcmawn1102hw5kchpq"))
-              (modules '((guix build utils)))
-              (snippet
-               `(begin
-                  (for-each delete-file
-                            (find-files "." ".*.(bin|exe|jar)$"))
-                  #t))))
+                "1v92nzdqx07c35x945awzir4yk0fk22vky6fpp8mq9js930sxsz0"))))
     (build-system gnu-build-system)
     (outputs '("out" "jdk" "doc"))
     (arguments
@@ -1024,7 +1023,7 @@ new Date();"))
        ("unzip" ,unzip)
        ("which" ,which)
        ("zip" ,zip)))
-    (home-page "https://openjdk.java.net/projects/jdk9/";)
+    (home-page "https://openjdk.org/projects/jdk9/";)
     (synopsis "Java development kit")
     (description
      "This package provides the Java development kit OpenJDK.")