mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 06:46:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: readymedia: Clean-up origin code.

Browse source 
* gnu/packages/upnp.scm (readymedia)[source]: Replace custom logic with
string-replace-substring.
This commit is contained in:
Efraim Flashner 2021-01-06 09:20:19 +02:00
parent 6b64bba8d9
commit 91bc4f4dfb
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 2 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/upnp.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk> ;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk>
;;; Copyright © 2020 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl> ;;; Copyright © 2020 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -132,11 +133,7 @@ (define-public readymedia
(uri (git-reference (uri (git-reference
(url "https://git.code.sf.net/p/minidlna/git") (url "https://git.code.sf.net/p/minidlna/git")
(commit (string-append (commit (string-append
"v" "v" (string-replace-substring version "." "_")))))
(string-map (match-lambda
(#\. #\_)
(chr chr))
version)))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32