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
; 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)