mothacehe pushed a commit to branch master
in repository guix.
commit 17e3b7d28fd030f88e1824a937179d80432fcc8a
Author: Mathieu Othacehe <[email protected]>
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))
