Overview
| Comment: | corrected path to db to fix dashboard hang in Run Control |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
ab926dd2521489a3a1e683591ac9f572 |
| User & Date: | mmgraham on 2023-07-31 14:59:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-08-01
| ||
| 12:46 | Backed out the change to remove cleanup on short-circuit exit check-in: 07d817d10e user: mmgraham tags: v1.80 | |
|
2023-07-31
| ||
| 14:59 | corrected path to db to fix dashboard hang in Run Control check-in: ab926dd252 user: mmgraham tags: v1.80 | |
| 09:17 | Removing call to cleanup on short-circuit exit where existing server is running. check-in: 81e3f50894 user: mrwellan tags: v1.80 | |
Changes
Modified dashboard.scm from [63dbb0e44d] to [349c7d2aed].
| ︙ | ︙ | |||
3134 3135 3136 3137 3138 3139 3140 | (define (dboard:set-last-db-update! tabdat context newtime) (hash-table-set! (dboard:tabdat-last-db-update tabdat) context newtime)) ;; (define (dashboard:database-changed? commondat tabdat #!key (context-key 'default)) (let* ((run-update-time (current-seconds)) | | | 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 |
(define (dboard:set-last-db-update! tabdat context newtime)
(hash-table-set! (dboard:tabdat-last-db-update tabdat) context newtime))
;;
(define (dashboard:database-changed? commondat tabdat #!key (context-key 'default))
(let* ((run-update-time (current-seconds))
(dbdir (conc *toppath* "/.mtdb"`))
(modtime (dashboard:get-youngest-run-db-mod-time dbdir))
(recalc (dashboard:recalc modtime
(dboard:commondat-please-update commondat)
(dboard:get-last-db-update tabdat context-key))))
(if recalc
(dboard:set-last-db-update! tabdat context-key run-update-time))
(dboard:commondat-please-update-set! commondat #f)
|
| ︙ | ︙ |