|
|
|
@ -2,8 +2,10 @@
|
|
|
|
(require "file-utils.rkt"
|
|
|
|
(require "file-utils.rkt"
|
|
|
|
"../setup.rkt"
|
|
|
|
"../setup.rkt"
|
|
|
|
"project.rkt"
|
|
|
|
"project.rkt"
|
|
|
|
|
|
|
|
"log.rkt"
|
|
|
|
file/cache
|
|
|
|
file/cache
|
|
|
|
racket/file
|
|
|
|
racket/file
|
|
|
|
|
|
|
|
racket/path
|
|
|
|
racket/list
|
|
|
|
racket/list
|
|
|
|
sugar/coerce
|
|
|
|
sugar/coerce
|
|
|
|
sugar/test
|
|
|
|
sugar/test
|
|
|
|
@ -33,6 +35,8 @@
|
|
|
|
(for/list ([ps (in-list path-strings-to-track)])
|
|
|
|
(for/list ([ps (in-list path-strings-to-track)])
|
|
|
|
(cond
|
|
|
|
(cond
|
|
|
|
[ps (define cp (->complete-path ps))
|
|
|
|
[ps (define cp (->complete-path ps))
|
|
|
|
|
|
|
|
(unless (file-exists? cp)
|
|
|
|
|
|
|
|
(message (format "watchlist file /~a does not exist" (find-relative-path (current-project-root) cp))))
|
|
|
|
(cons (path->string cp) (file-or-directory-modify-seconds cp #false (λ () 0)))]
|
|
|
|
(cons (path->string cp) (file-or-directory-modify-seconds cp #false (λ () 0)))]
|
|
|
|
[else #false])))
|
|
|
|
[else #false])))
|
|
|
|
(list* pollen-env poly-flag (and output-path (path->string output-path)) path+mod-time-pairs))
|
|
|
|
(list* pollen-env poly-flag (and output-path (path->string output-path)) path+mod-time-pairs))
|
|
|
|
|
