summary refs log tree commit diff
path: root/gnu/packages/wine.scm
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2020-07-08 14:14:54 +0200
committerTobias Geerinckx-Rice <me@tobias.gr>2020-07-08 14:16:49 +0200
commit8252d77f349cdbc4c49e3e7dbf8d2b869c5bacd6 (patch)
tree5e84e05617c2f0b6f1d1c03e07ba76b9e003ac0d /gnu/packages/wine.scm
parent8de54c63d35b6582ed5666456c5e91640ffd6641 (diff)
downloadguix-8252d77f349cdbc4c49e3e7dbf8d2b869c5bacd6.tar.gz
gnu: wine-staging: Fix source URI for patch versions.
* gnu/packages/wine.scm (wine-staging)[source]: Handle X.Y.Z patchset versions.
Diffstat (limited to 'gnu/packages/wine.scm')
-rw-r--r--gnu/packages/wine.scm27
1 files changed, 14 insertions, 13 deletions
diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm
index aeec63a1b9..dd33a1af58 100644
--- a/gnu/packages/wine.scm
+++ b/gnu/packages/wine.scm
@@ -375,19 +375,20 @@ integrate Windows applications into your desktop.")
     (name "wine-staging")
     (version (package-version wine-staging-patchset-data))
     (source
-     (origin
-       (method url-fetch)
-       (uri (let ((dir (string-append
-                        (version-major version)
-                        (if (string-suffix? ".0" (version-major+minor version))
-                            ".0"
-                            ".x"))))
-              (string-append
-               "https://dl.winehq.org/wine/source/" dir
-               "/wine-" version ".tar.xz")))
-       (file-name (string-append name "-" version ".tar.xz"))
-       (sha256
-        (base32 "1krk68lsfvisi0zpx7890cz0z5bp7jl7rka5d70vwyj3c7109bfb"))))
+     (let* ((wine-version (version-major+minor version))
+            (subdirectory (string-append
+                           (version-major version)
+                           (if (string-suffix? ".0" wine-version)
+                               ".0"
+                               ".x"))))
+       (origin
+         (method url-fetch)
+         (uri (string-append "https://dl.winehq.org/wine/source/"
+                             subdirectory "/"
+                             "wine-" wine-version ".tar.xz"))
+         (file-name (string-append name "-" wine-version ".tar.xz"))
+         (sha256
+          (base32 "1krk68lsfvisi0zpx7890cz0z5bp7jl7rka5d70vwyj3c7109bfb")))))
     (inputs `(("autoconf" ,autoconf)    ; for autoreconf
               ("ffmpeg" ,ffmpeg)
               ("gtk+" ,gtk+)