distro-build/drive-clients: add some date printouts
original commit: 966f06b738331f09224299eedd70ed30e94136a8
This commit is contained in:
parent
a373a8eafe
commit
c7c68fb5e7
11
pkgs/distro-build/display-time.rkt
Normal file
11
pkgs/distro-build/display-time.rkt
Normal 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)))
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user