diff options
Diffstat (limited to 'machines/portable-bios.scm')
| -rw-r--r-- | machines/portable-bios.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/machines/portable-bios.scm b/machines/portable-bios.scm index 334054d..6cee14a 100644 --- a/machines/portable-bios.scm +++ b/machines/portable-bios.scm @@ -6,6 +6,7 @@ #:use-module (gnu bootloader grub) ;; file-system + ;; swap-space #:use-module (gnu system file-systems) ;; linux @@ -53,3 +54,13 @@ ;; record* package (define-public kernel* linux) + +;; string -> +;; (list record* swap-space) +(define-public (swap-devices* host-name*) + (let* ((label* (string-append host-name* "-swap")) + + (target* (file-system-label label*)) + + (swap-space* (swap-space (target target*)))) + (list swap-space*))) |