From c5b1377840c3397e73de0d9f29bce60f8a91c286 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Thu, 9 May 2019 19:45:37 +0200 Subject: installer: Create btrfs file system. Fixes . * gnu/installer/parted.scm (create-btrfs-file-system): New procedure. (format-user-partitions): Use it. --- gnu/installer/parted.scm | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gnu/installer') diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm index 7cc2217cbe..fc8c9de6f1 100644 --- a/gnu/installer/parted.scm +++ b/gnu/installer/parted.scm @@ -1042,6 +1042,11 @@ bit bucket." (with-error-to-port (%make-void-port "w") (lambda () exp ...))))) +(define (create-btrfs-file-system partition) + "Create an btrfs file-system for PARTITION file-name." + (with-null-output-ports + (invoke "mkfs.btrfs" "-f" partition))) + (define (create-ext4-file-system partition) "Create an ext4 file-system for PARTITION file-name." (with-null-output-ports @@ -1106,6 +1111,10 @@ NEED-FORMATING? field set to #t." (luks-format-and-open user-partition)) (case fs-type + ((btrfs) + (and need-formatting? + (not (eq? type 'extended)) + (create-btrfs-file-system file-name))) ((ext4) (and need-formatting? (not (eq? type 'extended)) -- cgit v1.2.3