[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: system: image: Fix indentation.
From: |
guix-commits |
Subject: |
01/05: system: image: Fix indentation. |
Date: |
Mon, 23 May 2022 04:27:50 -0400 (EDT) |
mothacehe pushed a commit to branch master
in repository guix.
commit 17e3b7d28fd030f88e1824a937179d80432fcc8a
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon May 23 09:03:51 2022 +0200
system: image: Fix indentation.
* gnu/system/image.scm: Fix it.
---
gnu/system/image.scm | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 42e215f614..251615a757 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -295,11 +295,12 @@ used in the image."
;; the hdimage format (raw disk-image) is supported.
(cond
((memq format '(disk-image compressed-qcow2)) "hdimage")
- (else
- (raise (condition
- (&message
- (message
- (format #f (G_ "Unsupported image type ~a~%.")
format))))))))
+ (else
+ (raise (condition
+ (&message
+ (message
+ (format #f (G_ "Unsupported image type ~a~%.")
+ format))))))))
(define (partition->dos-type partition)
;; Return the MBR partition type corresponding to the given PARTITION.
@@ -396,10 +397,10 @@ used in the image."
(define (genimage-type-options image-type image)
(cond
- ((equal? image-type "hdimage")
- (format #f "~%~/~/gpt = ~a~%~/"
- (if (gpt-image? image) "true" "false")))
- (else "")))
+ ((equal? image-type "hdimage")
+ (format #f "~%~/~/gpt = ~a~%~/"
+ (if (gpt-image? image) "true" "false")))
+ (else "")))
(let* ((format (image-format image))
(image-type (format->image-type format))