mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
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:
parent
eea91d9a63
commit
7aa1d9156a
1 changed files with 2 additions and 2 deletions
|
@ -1460,7 +1460,7 @@ WHERE name = " name ";"))
|
||||||
(address address)
|
(address address)
|
||||||
(machine machine)
|
(machine machine)
|
||||||
(systems (string-split systems #\,))
|
(systems (string-split systems #\,))
|
||||||
(last-seen last-seen)))
|
(last-seen (string->number last-seen))))
|
||||||
(else #f))))
|
(else #f))))
|
||||||
|
|
||||||
(define (db-get-workers)
|
(define (db-get-workers)
|
||||||
|
@ -1479,7 +1479,7 @@ SELECT name, address, machine, systems, last_seen from Workers"))
|
||||||
(address address)
|
(address address)
|
||||||
(machine machine)
|
(machine machine)
|
||||||
(systems (string-split systems #\,))
|
(systems (string-split systems #\,))
|
||||||
(last-seen last-seen))
|
(last-seen (string->number last-seen)))
|
||||||
workers)))))))
|
workers)))))))
|
||||||
|
|
||||||
(define (db-remove-unresponsive-workers timeout)
|
(define (db-remove-unresponsive-workers timeout)
|
||||||
|
|
Loading…
Reference in a new issue