01/05: system: image: Fix indentation.

[guix-commits]

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))