[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/09: system: image: Fix image-with-os.
From: |
guix-commits |
Subject: |
07/09: system: image: Fix image-with-os. |
Date: |
Fri, 29 May 2020 03:12:31 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit 749381051d9b43fd4944b44e734c6fd9fced9030
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sat May 23 19:10:07 2020 +0200
system: image: Fix image-with-os.
* gnu/system/image.scm (image-with-os): Do not reorder partitions, as we
want
them to be created according to definition order.
---
gnu/system/image.scm | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 93b95b3..53f68c0 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -420,18 +420,18 @@ to OS. Also set the UUID and the size of the root
partition."
(string=? (file-system-mount-point fs) "/"))
(operating-system-file-systems os)))
- (let*-values (((partitions) (image-partitions base-image))
- ((root-partition other-partitions)
- (srfi-1:partition root-partition? partitions)))
- (image
- (inherit base-image)
- (operating-system os)
- (partitions
- (cons (partition
- (inherit (car root-partition))
- (uuid (file-system-device root-file-system))
- (size (root-size base-image)))
- other-partitions)))))
+ (image
+ (inherit base-image)
+ (operating-system os)
+ (partitions
+ (map (lambda (p)
+ (if (root-partition? p)
+ (partition
+ (inherit p)
+ (uuid (file-system-device root-file-system))
+ (size (root-size base-image)))
+ p))
+ (image-partitions base-image)))))
(define (operating-system-for-image image)
"Return an operating-system based on the one specified in IMAGE, but
- branch master updated (7c5c21f -> e3f0155), guix-commits, 2020/05/29
- 02/09: bootloader: grub: Do not run grub-install when creating a disk-image., guix-commits, 2020/05/29
- 05/09: system: image: Correct genimage configuration file indentation., guix-commits, 2020/05/29
- 01/09: bootloader: Add 'disk-image-installer'., guix-commits, 2020/05/29
- 03/09: bootloader: grub: Use inheritance to define grub-minimal-bootloader., guix-commits, 2020/05/29
- 04/09: image: Add bootloader installation support., guix-commits, 2020/05/29
- 06/09: image: Use grub-efi to install the EFI bootloader., guix-commits, 2020/05/29
- 08/09: image: Add a post-MBR gap to the default image., guix-commits, 2020/05/29
- 09/09: image: Do not use VM to create disk-images., guix-commits, 2020/05/29
- 07/09: system: image: Fix image-with-os.,
guix-commits <=