Overview
| Comment: | Put the db migration into a thread to not block starting the dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62 |
| Files: | files | file ages | folders |
| SHA1: |
3046301f0734ac3d07fa4bde8cce2cf0 |
| User & Date: | mrwellan on 2016-09-19 11:08:58 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-21
| ||
| 09:11 | moved readline fix include out of the if. Update copyright date. Block when running db migration IF version bumped check-in: e24aa68ed5 user: mrwellan tags: v1.62 | |
|
2016-09-19
| ||
| 11:08 | Put the db migration into a thread to not block starting the dashboard check-in: 3046301f07 user: mrwellan tags: v1.62 | |
| 10:32 | Merged runs-summary-context-menu into v1.62 as it passes QA check-in: 3903171f0b user: mrwellan tags: v1.62 | |
Changes
Modified dashboard.scm from [f82615dd6d] to [1427634bc5].
| ︙ | ︙ | |||
3264 3265 3266 3267 3268 3269 3270 |
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(define (main)
| | > > | 3264 3265 3266 3267 3268 3269 3270 3271 3272 3273 3274 3275 3276 3277 3278 3279 3280 |
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(define (main)
(if (not (args:get-arg "-skip-version-check"))
(let ((th1 (make-thread common:exit-on-version-changed)))
(thread-start! th1)))
(let* ((commondat (dboard:commondat-make)))
;; Move this stuff to db.scm? I'm not sure that is the right thing to do...
(cond
((args:get-arg "-test") ;; run-id,test-id
(let* ((dat (let ((d (map string->number (string-split (args:get-arg "-test") ",")))) ;; RADT couldn't find string->number, though it works
(if (> (length d) 1)
d
|
| ︙ | ︙ |