[PATCH 1/1] Print message while fetching eggs in chicken-install

[Evan Hanson]

When running chicken-install there is often a long pause before any
output while remote egg sources are downloaded. For new users this may
be confusing as it seems like the program isn't doing anything. We
currently print informational messages for building and installing eggs,
so let's print one for fetching them as well, and make their indentation
consistent, i.e. no indentation.
---
 chicken-install.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/chicken-install.scm b/chicken-install.scm
index 6d976048..755d126b 100644
--- a/chicken-install.scm
+++ b/chicken-install.scm
@@ -470,6 +470,7 @@
         (else name)))
 
 (define (fetch-egg-sources name version dest lax)
+  (print "fetching " name)
   (let loop ((locs default-locations))
     (cond ((null? locs)
            (let ((tmpdir (create-temporary-directory)))
@@ -843,7 +844,7 @@
                       (run-script dir bscript platform)
                       (unless (if (member name requested-eggs) no-install 
no-install-dependencies)
                         (check-installed-files name info)
-                        (print "  installing " name)
+                        (print "installing " name)
                         (run-script dir iscript platform sudo: sudo-install))
                       (when (and (member name requested-eggs)
                                  run-tests
@@ -873,7 +874,7 @@
                       (print "building " name " (target)")
                       (run-script dir bscript platform)
                       (unless (if (member name requested-eggs) no-install 
no-install-dependencies)
-                        (print "  installing " name " (target)")
+                        (print "installing " name " (target)")
                         (run-script dir iscript platform)))))))))
     (order-installed-eggs)))
 
-- 
2.28.0