diff options
| author | Arun Isaac | 2025-11-03 17:44:40 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-11-03 17:48:29 +0000 |
| commit | 5f62b15f1924648b80e8cc42543597e78472f7b9 (patch) | |
| tree | 49500d0dd5f1ae9e70869226dc736e6e5d4341cf /guix/forge/utils.scm | |
| parent | d2b1bfc256b8ffe88dd89db299c4f8e8bb6747a1 (diff) | |
| download | guix-forge-5f62b15f1924648b80e8cc42543597e78472f7b9.tar.gz guix-forge-5f62b15f1924648b80e8cc42543597e78472f7b9.tar.lz guix-forge-5f62b15f1924648b80e8cc42543597e78472f7b9.zip | |
forge: Add file-name-as-directory.
Diffstat (limited to 'guix/forge/utils.scm')
| -rw-r--r-- | guix/forge/utils.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix/forge/utils.scm b/guix/forge/utils.scm index 96d9f51..4b47f3b 100644 --- a/guix/forge/utils.scm +++ b/guix/forge/utils.scm @@ -1,5 +1,5 @@ ;;; guix-forge --- Guix software forge meta-service -;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2025 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of guix-forge. ;;; @@ -26,9 +26,15 @@ #:use-module (guix profiles) #:use-module (guix search-paths) #:use-module (guix store) - #:export (with-manifest + #:export (file-name-as-directory + with-manifest with-packages)) +(define (file-name-as-directory path) + "Return PATH with a trailing slash." + (string-append (string-trim-right path #\/) + "/")) + (define (with-manifest manifest exp) "Return a gexp executing EXP, another gexp, in a profile defined by MANIFEST." |