From 3a9213e4e664605c5e28642f354abcc1480e18f4 Mon Sep 17 00:00:00 2001
From: AAaronson <6002905-Abcdefp@users.noreply.gitlab.com>
Date: Tue, 4 May 2021 10:07:27 +0000
Subject: [PATCH] Fix typos

---
 nongnu/system/build-image.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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)