diff options
Diffstat (limited to 'examples/random-jobs.scm')
| -rw-r--r-- | examples/random-jobs.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 8fd895a..97ca150 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -42,6 +42,10 @@ (mkdir #$output)))))) (define (make-random-jobs store arguments) + (format (current-error-port) + "evaluating random jobs from directory ~s, commit ~s~%" + (assq-ref arguments 'file-name) + (assq-ref arguments 'revision)) (unfold (cut > <> 10) (lambda (i) (let ((suffix (number->string i))) |