summaryrefslogtreecommitdiff
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)
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