diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-06-21 12:13:30 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-06-21 12:23:34 +0200 |
| commit | bae90dc7e71f2ecfb09a89184915dfeb83473617 (patch) | |
| tree | 64610ff9901124207c60b2fa9ea7cffcdd3e48fc /gnu/system | |
| parent | cec2653bb4e51dd367ae196e780e07bceb8bb6df (diff) | |
install: Pass a relative file name to 'local-file'.
This is a followup to cbbbb7be0fbaa11ff75bce92f2d82131ff8db104.
* gnu/system/install.scm (/etc/configuration-files): Pass a relative
file name to 'local-file'.
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/install.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index a72613e9c5c..de14f6fb4c7 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm | |||
| @@ -208,8 +208,7 @@ the user's target storage device rather than on the RAM disk." | |||
| 208 | "Return a list of tuples representing configuration templates to add to | 208 | "Return a list of tuples representing configuration templates to add to |
| 209 | /etc." | 209 | /etc." |
| 210 | (define (file f) | 210 | (define (file f) |
| 211 | (local-file (search-path %load-path | 211 | (local-file (string-append "examples/" f))) |
| 212 | (string-append "gnu/system/examples/" f)))) | ||
| 213 | 212 | ||
| 214 | (define directory | 213 | (define directory |
| 215 | (computed-file "configuration-templates" | 214 | (computed-file "configuration-templates" |