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