www

commit 7f9c9ee7aec56c615e3a075369f98de791808467
parent 77984e76620355f164f4868988f378b1b108513e
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 18 Aug 2013 16:30:42 -0600

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

original commit: a961b63a2587727cc79831253658e7b77c0f44e8

Diffstat:
M
pkgs/distro-build/drive-clients.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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))