aboutsummaryrefslogtreecommitdiff
path: root/gnu/system
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2022-05-23 09:03:51 +0200
committerMathieu Othacehe <othacehe@gnu.org>2022-05-23 09:16:09 +0200
commit17e3b7d28fd030f88e1824a937179d80432fcc8a (patch)
tree659597cee6d519e06aaf1deb89a1f489d2c34380 /gnu/system
parent4ba4cb1d49d70a00f7236f60bd92e5eccef573dd (diff)
downloadguix-17e3b7d28fd030f88e1824a937179d80432fcc8a.tar
guix-17e3b7d28fd030f88e1824a937179d80432fcc8a.tar.gz
system: image: Fix indentation.
* gnu/system/image.scm: Fix it.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/image.scm19
1 files 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))