diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-05-23 09:03:51 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-05-23 09:16:09 +0200 |
| commit | 17e3b7d28fd030f88e1824a937179d80432fcc8a (patch) | |
| tree | 659597cee6d519e06aaf1deb89a1f489d2c34380 /gnu/system | |
| parent | 4ba4cb1d49d70a00f7236f60bd92e5eccef573dd (diff) | |
| download | 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.scm | 19 |
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)) |