summary refs log tree commit diff
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2021-01-06 09:20:19 +0200
committerEfraim Flashner <efraim@flashner.co.il>2021-01-06 09:20:19 +0200
commit91bc4f4dfbefabca103390fb3916090f7f6ce80f (patch)
tree0eb824278626be811439ad4c7e083967daced8af
parent6b64bba8d9a1bc4d14c4bd9cfd0cd450225bc5f1 (diff)
downloadguix-91bc4f4dfbefabca103390fb3916090f7f6ce80f.tar.gz
gnu: readymedia: Clean-up origin code.
* gnu/packages/upnp.scm (readymedia)[source]: Replace custom logic with
string-replace-substring.
-rw-r--r--gnu/packages/upnp.scm7
1 files changed, 2 insertions, 5 deletions
diff --git a/gnu/packages/upnp.scm b/gnu/packages/upnp.scm
index aac2ae370f..9707639d24 100644
--- a/gnu/packages/upnp.scm
+++ b/gnu/packages/upnp.scm
@@ -5,6 +5,7 @@
 ;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org>
 ;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk>
 ;;; Copyright © 2020 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
+;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -132,11 +133,7 @@ and others.")
        (uri (git-reference
              (url "https://git.code.sf.net/p/minidlna/git")
              (commit (string-append
-                      "v"
-                      (string-map (match-lambda
-                                    (#\. #\_)
-                                    (chr chr))
-                                  version)))))
+                      "v" (string-replace-substring version "." "_")))))
        (file-name (git-file-name name version))
        (sha256
         (base32