ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 05:39:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: image: Fix indentation.

Browse source 
* gnu/system/image.scm: Fix it.
This commit is contained in:
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 @@ (define (format->image-type format)
;; 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 @@ (define (partition->config image partition)
(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))