infra/nonguix
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typos

Browse Source
This commit is contained in:
AAaronson 2021-05-04 10:07:27 +00:00
parent 3078c10168
commit 3a9213e4e6
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
nongnu/system/build-image.scm
View File

@ -50,11 +50,11 @@
; Parses "nongnu/system/install.scm" for channel definition ; Parses "nongnu/system/install.scm" for channel definition
; Creates tmpfile containing channel definition ; Creates tmpfile containing channel definition
; Performs a guix pull using tmpfile as channel file ; Performs a guix pull using tmpfile as channel file
; Deletes tmpfile file ; Deletes tmpfile
; Builds image (currently iso only) ; 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 ; 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) (define (build-image . args)
(let* ((image-type 'iso) ; todo: parse args for supported image types (let* ((image-type 'iso) ; todo: parse args for supported image types
(image-label "guix-nonfree-install") (image-label "guix-nonfree-install")
@ -80,7 +80,7 @@
(system* "guix" (system* "guix"
"system" "system"
"image" "image"
(if (member "--uncompress" args) (if (member "--uncompressed" args)
"--image-type=uncompressed-iso9660" "--image-type=uncompressed-iso9660"
"--image-type=iso9660") ; remove once image types supported "--image-type=iso9660") ; remove once image types supported
(string-append "--label=" image-label) (string-append "--label=" image-label)