diff options
| -rw-r--r-- | bin/evaluate.in | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/bin/evaluate.in b/bin/evaluate.in index 6998767..2f38358 100644 --- a/bin/evaluate.in +++ b/bin/evaluate.in @@ -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)))) |