mirrors
/
cuirass
mirror of https://notabug.org/mthl/cuirass.git
1
0
Fork 0
Code Issues Releases Wiki Activity

evaluate: Use simple-format explicitely.

pull/3/head
Mathieu Lirzin 2016-07-24 12:49:00 +02:00
parent a063a2277e
commit 69e9709b33
No known key found for this signature in database
GPG Key ID: 0ADEE10094604D37
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bin/evaluate.in
View File

@ -79,18 +79,17 @@ value."
(λ (store . args) (λ (store . args)
(display "error: trying to build things during evaluation!~%" (display "error: trying to build things during evaluation!~%"
stderr) stderr)
(format stderr "'build-things' arguments: ~S~%" args) (simple-format stderr "'build-things' arguments: ~S~%" args)
(exit 1))) (exit 1)))
;; Call the entry point of FILE and print the resulting job sexp. ;; Call the entry point of FILE and print the resulting job sexp.
(pretty-print (pretty-print
(let* ((proc (module-ref %user-module 'hydra-jobs) ) (let* ((proc (module-ref %user-module 'hydra-jobs) )
(thunks (proc store (assq-ref spec #:arguments)))) (thunks (proc store (assq-ref spec #:arguments))))
(map (λ (thunk) (map (λ (thunk) (call-with-time-display thunk))
(call-with-time-display thunk))
thunks)) thunks))
stdout)))) stdout))))
((command _ ...) ((command _ ...)
(format (current-error-port) "Usage: ~A FILE (simple-format (current-error-port) "Usage: ~A FILE
Evaluate the Hydra jobs defined in FILE.~%" Evaluate the Hydra jobs defined in FILE.~%"
command) command)
(exit 1)))) (exit 1))))