~ruther/guix-local: install: Pass a relative file name to 'local-file'.

bae90dc7e71f2ecfb09a89184915dfeb83473617 — Ludovic Courtès 9 years ago cec2653

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'.

patch browse .tar.gz

1 files changed, 1 insertions(+), 2 deletions(-)

M gnu/system/install.scm

M gnu/system/install.scm => gnu/system/install.scm +1 -2

@@ 208,8 208,7 @@ the user's target storage device rather than on the RAM disk."
   "Return a list of tuples representing configuration templates to add to
 /etc."
   (define (file f)
-    (local-file (search-path %load-path
-                             (string-append "gnu/system/examples/" f))))
+    (local-file (string-append "examples/" f)))
 
   (define directory
     (computed-file "configuration-templates"