From bc723b0835442b7e3e2f97957f4aad0161b1d47f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 14 Feb 2018 20:14:40 +0100 Subject: examples: random: Make store file names more distinguishable. * examples/random-jobs.scm (random-derivation): Add 'suffix' parameter and honor it. (make-random-jobs): Pass a non-empty suffix to 'random-derivation'. --- examples/random-jobs.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/random-jobs.scm b/examples/random-jobs.scm index 9d26892..8fd895a 100644 --- a/examples/random-jobs.scm +++ b/examples/random-jobs.scm @@ -29,10 +29,10 @@ (#:description "dummy job") (#:long-description "really dummy job")))) -(define (random-derivation store) +(define* (random-derivation store #:optional (suffix "")) (let ((nonce (random 1e6))) (run-with-store store - (gexp->derivation "random" + (gexp->derivation (string-append "random" suffix) #~(let* ((seed (logxor #$(cdr (gettimeofday)) (car (gettimeofday)) (cdr (gettimeofday)))) @@ -44,7 +44,8 @@ (define (make-random-jobs store arguments) (unfold (cut > <> 10) (lambda (i) - (make-job (string-append "foo" (number->string i)) - (delay (random-derivation store)))) + (let ((suffix (number->string i))) + (make-job (string-append "foo" suffix) + (delay (random-derivation store suffix))))) 1+ 0)) -- cgit v1.2.3