From 8d210c6d13a8db73590fbed6c3f83d871ba267f7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 24 May 2020 15:11:36 -0700 Subject: [PATCH] timeout error --- pollen/private/preheat-cache.rkt | 6 ++++++ pollen/private/ts.rktd | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/pollen/private/preheat-cache.rkt b/pollen/private/preheat-cache.rkt index 7bbe54e..3ae0a5e 100644 --- a/pollen/private/preheat-cache.rkt +++ b/pollen/private/preheat-cache.rkt @@ -23,6 +23,10 @@ ;; if a file is already in the cache, no need to hit it again. ;; this allows partially completed preheat jobs to resume. + (define to-thd (thread (λ () + (sleep 4) + (message "preheat is taking a suspicious amount of time to start") + (message "commonly caused by a \"pollen.rkt\" file that doesn't work")))) (define uncached-paths (for/list ([path (in-directory starting-dir (λ (p) (not (special-path? p))))] #:when (for/or ([proc (in-list (list preproc-source? @@ -33,6 +37,8 @@ #:unless (path-cached? path)) (path->complete-path path))) + (kill-thread to-thd) + (cond [wants-dry-run? (for-each message uncached-paths)] [(null? uncached-paths) (message "all cached files are up to date")] diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 8ca8176..3e4ef88 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1589922989 +1590358296