[no subject]

[Mathieu Othacehe]

branch: master
commit 7aa1d9156a4baeca955909e7d17cfe5b781782ea
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Feb 7 18:16:57 2021 +0100

    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 ae59c51..d82dae6 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)