diff options
| author | Peter Bex <peter@more-magic.net> | 2016-02-21 21:11:39 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2016-02-21 21:11:39 +0100 |
| commit | b58059437b435d23f29ab0bd6e3395a86f413a36 (patch) | |
| tree | 562264bb4055d2a0ebe731db7b99b2df877779b7 | |
| parent | c7c1112de63c1512fb90c97b2f228d9dfb5ff91f (diff) | |
| download | vps-builder-b58059437b435d23f29ab0bd6e3395a86f413a36.tar.gz | |
Fix syslinux installation; it always looks for config file in disk root
| -rw-r--r-- | vps-builder.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/vps-builder.scm b/vps-builder.scm index 5a6dcdb..df63fec 100644 --- a/vps-builder.scm +++ b/vps-builder.scm @@ -219,12 +219,10 @@ "assets/boot/extlinux.conf" read-string)) (conf (string-translate* template `(("{KERNEL}" . ,kernel) - ("{RAMDISK}" . ,ramdisk)))) - (tgt (make-pathname `(,root-dir "boot" "extlinux") - "extlinux.conf"))) - (install-directory root-dir "/boot/extlinux" "root" "root" #o755) - (with-output-to-file tgt (lambda () (write-string conf))) - (run* (extlinux --install ,(make-pathname root-dir "boot"))))) + ("{RAMDISK}" . ,ramdisk))))) + (with-output-to-file (make-pathname root-dir "extlinux.conf") + (lambda () (write-string conf))) + (run* (extlinux --install ,root-dir)))) (define (setup-firewall root-dir) (install-packages root-dir "ferm" "sshguard") |