From 7aa1d9156a4baeca955909e7d17cfe5b781782ea Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sun, 7 Feb 2021 18:16:57 +0100
Subject: [PATCH] Return worker last-seen field as integer.
* src/cuirass/database.scm (db-get-worker, db-get-workers): Return last-seen
field as integer.
---
src/cuirass/database.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index ae59c519..d82dae6e 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1460,7 +1460,7 @@ WHERE name = " name ";"))
(address address)
(machine machine)
(systems (string-split systems #\,))
- (last-seen last-seen)))
+ (last-seen (string->number last-seen))))
(else #f))))
(define (db-get-workers)
@@ -1479,7 +1479,7 @@ SELECT name, address, machine, systems, last_seen from Workers"))
(address address)
(machine machine)
(systems (string-split systems #\,))
- (last-seen last-seen))
+ (last-seen (string->number last-seen)))
workers)))))))
(define (db-remove-unresponsive-workers timeout)
--
GitLab