diff options
| author | EuAndreh <eu@euandre.org> | 2024-08-21 10:42:00 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2024-08-21 10:42:00 -0300 |
| commit | 9caac21998f6cd009d10a727222da3bc542b6817 (patch) | |
| tree | a9c5d6643d6f63e970b2ad84c046b3e049d30c01 | |
| parent | packages.scm: Move utility functions to the beginning of the file (diff) | |
| download | packages-9caac21998f6cd009d10a727222da3bc542b6817.tar.gz packages-9caac21998f6cd009d10a727222da3bc542b6817.tar.xz | |
packages.scm: Replace some (string-append ...) with (str ...)
| -rw-r--r-- | src/org/euandre/packages.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm index e39d475..e739388 100644 --- a/src/org/euandre/packages.scm +++ b/src/org/euandre/packages.scm @@ -166,7 +166,7 @@ (origin (method url-fetch) (uri - (string-append + (str "https://euandre.org/git/" name "/snapshot/" name "-" version ".tar.xz")) (sha256 (base32 checksum)))) @@ -179,7 +179,7 @@ (delete 'configure)))) (synopsis #f) ;; FIXME: get (description #f) ;; from tarball! - (home-page (string-append "https://euandre.org/git/" name "/")) + (home-page (str "https://euandre.org/git/" name "/")) (license licenses:agpl3+))) @@ -266,13 +266,13 @@ (origin (method url-fetch) (uri - (string-append "https://papo.im/git/" - name - "/snapshot/" - name - "-" - version - ".tar.xz")) + (str "https://papo.im/git/" + name + "/snapshot/" + name + "-" + version + ".tar.xz")) (sha256 (base32 checksum)))) (arguments @@ -400,11 +400,11 @@ (define (tuple->entry tuple) (let* ((name (s1:first tuple)) (package (s1:second tuple)) - (path (string-append "/etc/" name))) + (path (str "/etc/" name))) (list name (computed-file - (string-append "syskeep-" name) + (str "syskeep-" name) #~(begin (use-modules ((ice-9 textual-ports) #:prefix textual-ports:)) @@ -790,7 +790,7 @@ (m:match config (($ config-type name package user group _log-file data-directory _run-directory run-in-container? container-name extra-mappings) - (let ((bin (file-append package (string-append "/bin/" name)))) + (let ((bin (file-append package (str "/bin/" name)))) (if (not run-in-container?) bin (least-authority-wrapper |