guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ludovic Courtès
Date: Tue, 9 May 2023 10:28:17 -0400 (EDT)

branch: master
commit 89451ba09056b3a01767884b3223ef7606be447e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Tue May 9 14:42:54 2023 +0200

    metrics: Make "updating metric" messages debug-level.
    
    * src/cuirass/metrics.scm (db-update-metric): Use 'log-debug' for
    "updating metric" messages.
---
 src/cuirass/metrics.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/metrics.scm b/src/cuirass/metrics.scm
index 992349e..647974e 100644
--- a/src/cuirass/metrics.scm
+++ b/src/cuirass/metrics.scm
@@ -384,8 +384,8 @@ for periodical metrics for instance."
            (value (compute-metric metric field)))
       (if value
           (begin
-            (log-info "Updating metric ~a (~a) to ~a."
-                      (symbol->string id) field value)
+            (log-debug "updating metric ~a (~a) to ~a"
+                       (symbol->string id) field value)
             (exec-query/bind db "\
 INSERT INTO Metrics (field, type, value, timestamp) VALUES ("
                              field ", " (metric->type metric) ", "
@@ -393,7 +393,7 @@ INSERT INTO Metrics (field, type, value, timestamp) VALUES 
("
                              now ")
 ON CONFLICT ON CONSTRAINT metrics_pkey DO
 UPDATE SET value = " value ", timestamp = " now ";"))
-          (log-warning "Failed to compute metric ~a (~a)."
+          (log-warning "failed to compute metric ~a (~a)"
                        (symbol->string id) field)))))
 
 (define (db-update-metrics)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]