Overview
| Comment: | Fixed double paren bug in dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
01de08afc5c0b251916c8c5c0f41a1d1 |
| User & Date: | mrwellan on 2022-02-14 19:36:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-14
| ||
| 19:49 | Initialize placeholder record to correct length in db:get-run-info check-in: e0fb471262 user: mrwellan tags: v2.0001 | |
| 19:37 | Disallow return of eof Leaf check-in: 2540e2a9d9 user: mrwellan tags: v2.0001-disallow-eof-1 | |
| 19:36 | Fixed double paren bug in dashboard check-in: 01de08afc5 user: mrwellan tags: v2.0001 | |
| 19:35 | Added call to setup serializing method check-in: 89fabecd17 user: mrwellan tags: v2.0001 | |
Changes
Modified dashboard.scm from [d302c30c66] to [b030085aaf].
| ︙ | ︙ | |||
879 880 881 882 883 884 885 |
(> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
(begin
(when (> elapsed-time 2)
(debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
(let* ((old-val (iup:attribute *tim* "TIME"))
(new-val (number->string (inexact->exact (floor (* 2 (string->number old-val)))))))
(if (< (string->number new-val) 5000)
| > | | < < < | 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 |
(> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
(begin
(when (> elapsed-time 2)
(debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
(let* ((old-val (iup:attribute *tim* "TIME"))
(new-val (number->string (inexact->exact (floor (* 2 (string->number old-val)))))))
(if (< (string->number new-val) 5000)
(begin
(debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
(iup:attribute-set! *tim* "TIME" new-val)))))
(dboard:tabdat-allruns-set! tabdat new-res)
maxtests)
(if (> (dboard:rundat-run-data-offset run-struct) 0)
(loop run tal new-res newmaxtests) ;; not done getting data for this run
(loop (car tal)(cdr tal) new-res newmaxtests)))))))
(dboard:tabdat-filters-changed-set! tabdat #f)
(dboard:update-tree tabdat runs-hash header tb)))
|
| ︙ | ︙ |