02/04: gnu: libsoup: Depend on a fixed version of Samba.

[guix-commits]

civodul pushed a commit to branch core-updates-frozen
in repository guix.

commit e77df67cc25e4f221af530ed80f1c5f7a839e86f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Nov 17 23:57:49 2021 +0100

    gnu: libsoup: Depend on a fixed version of Samba.
    
    This avoids big rebuilds when Samba is upgraded.
    
    * gnu/packages/samba.scm (samba/fixed): New variable.
    * gnu/packages/gnome.scm (libsoup-minimal)[inputs]: Use it instead of
    SAMBA.
---
 gnu/packages/gnome.scm |  2 +-
 gnu/packages/samba.scm | 14 +++++++++++++-
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 39ab43c..8677a68 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4940,7 +4940,7 @@ libxml to ease remote use of the RESTful API.")
        ("zlib" ,zlib)))
     (inputs
      `(("mit-krb5" ,mit-krb5)
-       ("ntlm_auth" ,samba)))           ; For ntlm_auth support
+       ("ntlm_auth" ,samba/fixed)))               ; For ntlm_auth support
     (home-page "https://wiki.gnome.org/Projects/libsoup";)
     (synopsis "GLib-based HTTP Library")
     (description
diff --git a/gnu/packages/samba.scm b/gnu/packages/samba.scm
index 966ccc8..c49ed9a 100644
--- a/gnu/packages/samba.scm
+++ b/gnu/packages/samba.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2015, 2017 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013, 2015, 2017, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2016, 2017, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira 
<https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
@@ -289,6 +289,18 @@ Samba is an important component to seamlessly integrate 
Linux/Unix Servers and
 Desktops into Active Directory environments using the winbind daemon.")
     (license gpl3+)))
 
+(define-public samba/fixed
+  ;; Version that rarely changes, depended on by libsoup.
+  (package/inherit samba
+    (version "4.13.10")
+    (source
+     (origin
+       (inherit (package-source samba))
+       (uri (string-append "https://download.samba.org/pub/samba/stable/";
+                           "samba-" version ".tar.gz"))
+       (sha256
+        (base32 "00q5hf2r71dyma785dckcyksv3082mqfgyy9q6k6rc6kqjwkirzh"))))))
+
 (define-public talloc
   (package
     (name "talloc")