diff options
Diffstat (limited to 'guix/scripts/system.scm')
-rw-r--r-- | guix/scripts/system.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index e50f1d8ac7..a319692d7f 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -638,8 +638,9 @@ any, are available. Raise an error if they're not." #:mappings mappings)) ((disk-image) (system-disk-image os - #:name (match file-system-type + #:name (match (pk file-system-type) ("iso9660" "image.iso") + ("docker" "docker-image") (_ "disk-image")) #:disk-image-size image-size #:file-system-type file-system-type)))) |