branch: master
commit 822dbb366d5febcf57bb047f5d533223ecd3b7ec
Author: Mathieu Othacehe <[email protected]>
AuthorDate: Wed Sep 16 15:58:14 2020 +0200

    Log metrics update duration.
    
    * bin/cuirass.in (main): Log metrics update duration.
---
 bin/cuirass.in | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 9c856fc..ed21ed7 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -193,7 +193,9 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" 
"$@"
                                'metrics exit-channel
                                (lambda ()
                                  (while #t
-                                   (db-update-metrics)
+                                   (with-time-logging
+                                    "Metrics update"
+                                    (db-update-metrics))
                                    (sleep 3600)))))
 
                              (spawn-fiber

Reply via email to