From f7f3c9cccd87eb911b7a74a46cff5d00cfbecc22 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 16 Mar 2020 12:45:16 -0700 Subject: [PATCH] debug logging in cache --- pollen/private/cache-utils.rkt | 2 ++ pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/pollen/private/cache-utils.rkt b/pollen/private/cache-utils.rkt index b6bc105..4537742 100644 --- a/pollen/private/cache-utils.rkt +++ b/pollen/private/cache-utils.rkt @@ -108,6 +108,7 @@ (define-values (dest-path-dir dest-path-filename _) (split-path dest-path)) (define dest-file (build-path cache-dir (format "~a.rktd" dest-path-filename))) (define (generate-dest-file) + (message-debug (format "cache miss for ~a" dest-file)) (write-to-file (serialize (path-hash-thunk)) dest-file #:exists 'replace)) ;; `cache-file` looks for a file in private-cache-dir previously cached with key @@ -123,6 +124,7 @@ #:notify-cache-use notify-proc #:max-cache-files +inf.0 #:max-cache-size (setup:compile-cache-max-size) + #:log-debug-string message-debug #:log-error-string (λ (str) (match str diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 454f99f..1713bb5 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1584387911 +1584387916