From: Alexander Joss <alex@infiniteadaptability.org>
Date: Wed, 19 Aug 2026 02:27:44 +0000 (-0700)
Subject: erlang: bump to 28.5.0.4
X-Git-Url: http://git.infiniteadaptability.org/?a=commitdiff_plain;h=d1529e09373214c106fe4e74914cb63f900be515;p=channel

erlang: bump to 28.5.0.4
---

diff --git a/infiniteadaptability/packages/erlang.scm b/infiniteadaptability/packages/erlang.scm
index b47c981..ce0ca23 100644
--- a/infiniteadaptability/packages/erlang.scm
+++ b/infiniteadaptability/packages/erlang.scm
@@ -1,12 +1,14 @@
 (define-module (infiniteadaptability packages erlang)
   #:use-module (gnu packages erlang)
+  #:use-module (guix gexp)
   #:use-module (guix git-download)
-  #:use-module (guix packages))
+  #:use-module (guix packages)
+  #:use-module (guix utils))
 
-(define-public erlang-28.1.1
+(define-public erlang-28.5.0.4
   (package
     (inherit erlang)
-    (version "28.1.1")
+    (version "28.5.0.4")
     (source
      (origin
        (method git-fetch)
@@ -15,12 +17,24 @@
              (commit (string-append "OTP-" version))))
        (file-name (git-file-name "erlang" version))
        (sha256
-        (base32 "0d97mmd6ja77rc7b82sx1vf6prfy9fn9jgvl92h2dm47s5pi1i8h"))))))
+        (base32 "0hr0pba1lzrrr4hydf0qhbrwa1mkzcbl07m5zmn65y6si3rb2f0j"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments erlang)
+       ((#:phases phases)
+        #~(modify-phases #$phases
+            (add-after 'unpack 'fix-erl-interface-clean
+              (lambda _
+                ;; erl_interface only creates its local erts/ directory when it
+                ;; borrows erl_md5.c from erts; with the bundled OpenSSL md5 that
+                ;; directory never exists, yet clean rmdirs it unconditionally.
+                (substitute* "lib/erl_interface/src/Makefile.in"
+                  (("rm -f erts/\\*; rmdir erts")
+                   "rm -rf erts"))))))))))
 
 (define-public rebar
   (package
     (inherit rebar3)
-    (inputs (modify-inputs (package-inputs rebar3)
-              (replace "erlang" erlang-28.1.1)))))
+    (native-inputs (modify-inputs (package-native-inputs rebar3)
+                     (replace "erlang" erlang-28.5.0.4)))))
 
-erlang-28.1.1
+erlang-28.5.0.4