From 17e3b7d28fd030f88e1824a937179d80432fcc8a Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Mon, 23 May 2022 09:03:51 +0200 Subject: system: image: Fix indentation. * gnu/system/image.scm: Fix it. --- gnu/system/image.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'gnu/system/image.scm') 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)) -- cgit v1.2.3