distro-build/drive-clients: add some date printouts

original commit: 966f06b738331f09224299eedd70ed30e94136a8
This commit is contained in:
Matthew Flatt 2013-07-12 06:27:53 -06:00
parent a373a8eafe
commit c7c68fb5e7
2 changed files with 18 additions and 1 deletions

View File

@ -0,0 +1,11 @@
#lang racket/base
(require racket/date)
(provide display-time)
(define (display-time)
(define now (seconds->date (current-seconds)))
(printf "[~a] The time is now ~a\n"
(parameterize ([date-display-format 'iso-8601])
(date->string now #t))
(date->string now #t)))

View File

@ -9,7 +9,8 @@
current-mode
site-config?
site-config-tag site-config-options site-config-content)
"url-options.rkt")
"url-options.rkt"
"display-time.rkt")
;; See "config.rkt" for an overview.
@ -298,6 +299,7 @@
(~a "http://" server ":9440/.git")))
(define clean? (get-opt c '#:clean? default-clean? #:localhost #f))
(define pull? (get-opt c '#:pull? #t #:localhost #f))
(display-time)
((case (or (get-opt c '#:platform) 'unix)
[(unix) unix-build]
[else windows-build])
@ -351,6 +353,8 @@
;; ----------------------------------------
(display-time)
(void
(let loop ([config config]
[mode 'sequential]
@ -388,3 +392,5 @@
(lambda () (client-build c)))
;; stop client, if a VM:
(stop-client c)))))]))))
(display-time)