diff options
| author | Arun Isaac | 2025-11-23 22:14:11 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-11-23 22:17:59 +0000 |
| commit | 58cd39820f1ff853c95655e141b046a10e41ac81 (patch) | |
| tree | dbff90070a1c017a3c656469de20a925fa53f42d | |
| parent | 70fa9717c70cfd6ae3294a4fe54ee1726f0bedac (diff) | |
| download | ravanan-58cd39820f1ff853c95655e141b046a10e41ac81.tar.gz ravanan-58cd39820f1ff853c95655e141b046a10e41ac81.tar.lz ravanan-58cd39820f1ff853c95655e141b046a10e41ac81.zip | |
Demote store hit (cache hit) messages to debug level.
Retrieving results from the store will be very quick, and will happen often. There is no need to trouble the user with this information (unless they want to hear it).
| -rw-r--r-- | ravanan/command-line-tool.scm | 4 | ||||
| -rw-r--r-- | ravanan/store.scm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 310d179..f5edfc1 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -321,8 +321,8 @@ the built script as a monadic value." ;; been run successfully. (state-return (begin - (log-info "~a previously run; retrieving result from store" - script) + (log-debug "~a previously run; retrieving result from store" + script) (single-machine-job-state script inputs #t))) ;; Run script if it has not already been run. (begin diff --git a/ravanan/store.scm b/ravanan/store.scm index 6de7d21..5b9f8b8 100644 --- a/ravanan/store.scm +++ b/ravanan/store.scm @@ -147,8 +147,8 @@ interned path and location." (basename path)) store))) (if (file-exists? interned-path) - (log-info "~a previously interned into store as ~a~%" - path interned-path) + (log-debug "~a previously interned into store as ~a~%" + path interned-path) (begin (log-info "Interning ~a into store as ~a~%" path interned-path) |