01/05: gnu: readymedia: Clean-up origin code.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 91bc4f4dfbefabca103390fb3916090f7f6ce80f
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jan 6 09:20:19 2021 +0200

    gnu: readymedia: Clean-up origin code.
    
    * gnu/packages/upnp.scm (readymedia)[source]: Replace custom logic with
    string-replace-substring.
---
 gnu/packages/upnp.scm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/upnp.scm b/gnu/packages/upnp.scm
index aac2ae3..9707639 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