distro-build/drive-clients: print time before each command

original commit: a961b63a2587727cc79831253658e7b77c0f44e8
2013-08-18 16:30:42 -06:00 · 2013-08-18 16:30:42 -06:00 · 7f9c9ee7ae
commit 7f9c9ee7ae
parent 77984e7662
1 changed files with 1 additions and 1 deletions
--- a/pkgs/distro-build/drive-clients.rkt
+++ b/pkgs/distro-build/drive-clients.rkt
@ -194,6 +194,7 @@

 (define (ssh-script host port user kind . cmds)
  (for/and ([cmd (in-list cmds)])
+    (when cmd (display-time))
    (or (not cmd)
        (if (and (equal? host "localhost")
                 (not user))
@ -366,7 +367,6 @@
       ;; ensure a newline at the end:
       (newline o))))

-  (display-time)
  (begin0

   ((case (or (get-opt c '#:platform) (system-type))