Overview
| Comment: | Fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.60-broken-test1 |
| Files: | files | file ages | folders |
| SHA1: |
62ccd432511228438f51fd4d5766c9da |
| User & Date: | matt on 2014-12-09 23:43:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-09
| ||
| 23:43 | Fixed typo Closed-Leaf check-in: 62ccd43251 user: matt tags: v1.60-broken-test1 | |
| 23:00 | Tweak dashboard updates check-in: 1b36724a57 user: matt tags: v1.60-broken-test1 | |
Changes
Modified client.scm from [e12d06ffcd] to [fc43f1ccf0].
| ︙ | ︙ | |||
201 202 203 204 205 206 207 | (client:setup run-id remaining-tries: (- remaining-tries 1)) ))) (begin ;; no server registered ;; (let ((num-available (tasks:num-in-available-state (db:dbdat-get-db tdbdat) run-id))) ;; (debug:print-info 0 "client:setup, no server registered, remaining-tries=" remaining-tries " num-available=" num-available) ;; (if (< num-available 2) ;; (server:try-running run-id)) | | | 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 | (client:setup run-id remaining-tries: (- remaining-tries 1)) ))) (begin ;; no server registered ;; (let ((num-available (tasks:num-in-available-state (db:dbdat-get-db tdbdat) run-id))) ;; (debug:print-info 0 "client:setup, no server registered, remaining-tries=" remaining-tries " num-available=" num-available) ;; (if (< num-available 2) ;; (server:try-running run-id)) (tasks:start-and-wait-for-server tdbdat run-id 10) ;; (thread-sleep! (+ 2 (random (- 20 remaining-tries)))) ;; give server a little time to start up, randomize a little to avoid start storms. (client:setup run-id remaining-tries: (- remaining-tries 1)))))))) ;; keep this as a function to ease future (define (client:start run-id server-info) (http-transport:client-connect (tasks:hostinfo-get-interface server-info) (tasks:hostinfo-get-port server-info))) |
| ︙ | ︙ |