Overview
| Comment: | Merged the threadifying of db migrate on dashboard start |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
669caf7603fb9b4bb8ce33212a6104ee |
| User & Date: | mrwellan on 2016-09-19 11:11:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-19
| ||
| 11:11 | Merged the threadifying of db migrate on dashboard start Closed-Leaf check-in: 669caf7603 user: mrwellan tags: v1.61 | |
|
2016-09-15
| ||
| 09:15 | Brute force fix for the disappearing tests issue in the run summary view check-in: 232b64b7dd user: mrwellan tags: v1.61, v1.6105 | |
Changes
Modified dashboard.scm from [f77a47f8db] to [a511e8905e].
| ︙ | ︙ | |||
2891 2892 2893 2894 2895 2896 2897 |
;; ease debugging by loading ~/.dashboardrc
(let ((debugcontrolf (conc (get-environment-variable "HOME") "/.dashboardrc")))
(if (file-exists? debugcontrolf)
(load debugcontrolf)))
(define (main)
| | > > | 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 |
;; 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") ","))))
(if (> (length d) 1)
d
|
| ︙ | ︙ |