Return worker last-seen field as integer.

* src/cuirass/database.scm (db-get-worker, db-get-workers): Return last-seen
field as integer.
This commit is contained in:
Mathieu Othacehe 2021-02-07 18:16:57 +01:00
parent eea91d9a63
commit 7aa1d9156a
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 2 additions and 2 deletions

View File

@ -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)