diff options
author | Christopher Baines <mail@cbaines.net> | 2020-11-30 19:38:57 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-11-30 19:38:57 +0000 |
commit | 8c1d23f7f47c78a5d58bc8f6a5e2fe39d612d61e (patch) | |
tree | 4198f7131505ff352f3f5f09f0fad2045cd7b8cc /guix-build-coordinator/agent.scm | |
parent | 1e72707b969cfda18f454c38314f71986f2ae715 (diff) | |
download | build-coordinator-8c1d23f7f47c78a5d58bc8f6a5e2fe39d612d61e.tar build-coordinator-8c1d23f7f47c78a5d58bc8f6a5e2fe39d612d61e.tar.gz |
Replace WARNING with WARN
As it's shorter, and this keeps the logging neat.
Diffstat (limited to 'guix-build-coordinator/agent.scm')
-rw-r--r-- | guix-build-coordinator/agent.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index b7a158e..ef2cc61 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -223,7 +223,7 @@ non-derivation-substitute-urls)) (unless non-derivation-substitute-urls - (log-msg lgr 'WARNING + (log-msg lgr 'WARN "non-derivation-substitute-urls unset, unable to query substitute servers without caching")) @@ -238,7 +238,7 @@ unable to query substitute servers without caching")) (if (has-substitutes? store file) #t (begin - (log-msg lgr 'WARNING + (log-msg lgr 'WARN "a substitute should be available for " file ", but the guix-daemon claims it's unavailable") #f)))))) @@ -285,7 +285,7 @@ but the guix-daemon claims it's unavailable") (if (null? missing-files) '() (begin - (log-msg lgr 'WARNING + (log-msg lgr 'WARN "failed to fetch substitutes for " missing-files) @@ -299,7 +299,7 @@ but the guix-daemon claims it's unavailable") missing-output)) missing-files)))) - (log-msg lgr 'WARNING + (log-msg lgr 'WARN "the following outputs are missing: " (string-join (map (lambda (output) @@ -411,7 +411,7 @@ but the guix-daemon claims it's unavailable") (if (string? details) (cond ((string=? details "build_already_processed") - (log-msg lgr 'WARNING + (log-msg lgr 'WARN build-id ": coordinator indicates this build is already marked as processed") #t) (else @@ -466,7 +466,7 @@ but the guix-daemon claims it's unavailable") (if (string? details) (cond ((string=? details "build_already_processed") - (log-msg lgr 'WARNING + (log-msg lgr 'WARN build-id ": coordinator indicates this build is already marked as processed") #t) ((string=? details "missing_build_log_file") |