diff --git a/nongnu/system/build-image.scm b/nongnu/system/build-image.scm index 493ccda..ee55ec2 100644 --- a/nongnu/system/build-image.scm +++ b/nongnu/system/build-image.scm @@ -50,11 +50,11 @@ ; Parses "nongnu/system/install.scm" for channel definition ; Creates tmpfile containing channel definition ; Performs a guix pull using tmpfile as channel file -; Deletes tmpfile file +; Deletes tmpfile ; Builds image (currently iso only) -; supportes "--uncompress" command line argument +; supports "--uncompressed" command line argument ; If "--roll-back" is used as an argument, reverts guix pull -; Returns #t if exit-code of build is 0, else returns #f +; Returns #t if exit-code is 0, else returns #f (define (build-image . args) (let* ((image-type 'iso) ; todo: parse args for supported image types (image-label "guix-nonfree-install") @@ -80,7 +80,7 @@ (system* "guix" "system" "image" - (if (member "--uncompress" args) + (if (member "--uncompressed" args) "--image-type=uncompressed-iso9660" "--image-type=iso9660") ; remove once image types supported (string-append "--label=" image-label)