diff options
| author | Tomas Volf <~@wolfsden.cz> | 2026-06-14 20:14:31 +0200 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2026-06-15 09:03:13 +0900 |
| commit | d626e52e7d4a5934a80c27e9828bfdc1ff1a60e5 (patch) | |
| tree | e541fd2c600c49c8c9978bba038aec59efc603ac /gnu | |
| parent | 5fc27b5f314fbab5534c6dd96785246f4d687e79 (diff) | |
packages: %patch-path: Canonicalize the entries.
Resolves a warning when using -L . and search-patches procedure together.
* gnu/packages.scm (%patch-path): Canonicalize directory.
Signed-off-by: Maxim Cournoyer <maxim@guixotic.coop>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm index db6a6c21ae3..8d40e3e3352 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm | |||
| @@ -177,7 +177,8 @@ flags." | |||
| 177 | (map (lambda (directory) | 177 | (map (lambda (directory) |
| 178 | (if (string=? directory %distro-root-directory) | 178 | (if (string=? directory %distro-root-directory) |
| 179 | (string-append directory "/gnu/packages/patches") | 179 | (string-append directory "/gnu/packages/patches") |
| 180 | directory)) | 180 | (or (false-if-exception (canonicalize-path directory)) |
| 181 | directory))) | ||
| 181 | (map strip-trailing-slash %load-path)))) | 182 | (map strip-trailing-slash %load-path)))) |
| 182 | 183 | ||
| 183 | ;; This procedure is used by Emacs-Guix up to 0.5.1.1, so keep it for now. | 184 | ;; This procedure is used by Emacs-Guix up to 0.5.1.1, so keep it for now. |