me
/
guix
Archived
1
0
Fork 0
Code

system: image: Fix indentation. 

* gnu/system/image.scm: Fix it.
Mathieu Othacehe 2022-05-23 09:03:51 +02:00
parent 4ba4cb1d49
commit 17e3b7d28f
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/system/image.scm
View File

@ -295,11 +295,12 @@ used in the image."
;; the hdimage format (raw disk-image) is supported. ;; the hdimage format (raw disk-image) is supported.
(cond (cond
((memq format '(disk-image compressed-qcow2)) "hdimage") ((memq format '(disk-image compressed-qcow2)) "hdimage")
(else (else
(raise (condition (raise (condition
(&message (&message
(message (message
(format #f (G_ "Unsupported image type ~a~%.") format)))))))) (format #f (G_ "Unsupported image type ~a~%.")
format))))))))
(define (partition->dos-type partition) (define (partition->dos-type partition)
;; Return the MBR partition type corresponding to the given 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) (define (genimage-type-options image-type image)
(cond (cond
((equal? image-type "hdimage") ((equal? image-type "hdimage")
(format #f "~%~/~/gpt = ~a~%~/" (format #f "~%~/~/gpt = ~a~%~/"
(if (gpt-image? image) "true" "false"))) (if (gpt-image? image) "true" "false")))
(else ""))) (else "")))
(let* ((format (image-format image)) (let* ((format (image-format image))
(image-type (format->image-type format)) (image-type (format->image-type format))