From e0f1ad79cd80fb00b824ddbbf83aa6db5334b56a Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sat, 3 Sep 2011 15:26:31 -0400 Subject: [PATCH] fixing log messages on resources --- whalesong-helpers.rkt | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/whalesong-helpers.rkt b/whalesong-helpers.rkt index 2c07cd2..afddf50 100644 --- a/whalesong-helpers.rkt +++ b/whalesong-helpers.rkt @@ -68,7 +68,7 @@ [else (fprintf (current-report-port) (format "Writing resource ~s\n" (build-path (current-output-dir) - (resource-path r)))) + (resource-key r)))) (copy-file (resource-path r) (build-path (current-output-dir) (resource-key r)))]))]) @@ -107,6 +107,11 @@ (cond [(same-file? (build-path (current-output-dir) (resource-key r)) (resource-path r)) + (fprintf (current-report-port) + (format "Skipping writing resource ~s; already exists\n" + (build-path (current-output-dir) + (resource-key r)))) + (void)] [else (error 'whalesong "Unable to write resource ~s; this will overwrite a file" @@ -115,7 +120,7 @@ [else (fprintf (current-report-port) (format "Writing resource ~s\n" (build-path (current-output-dir) - (resource-path r)))) + (resource-key r)))) (copy-file (resource-path r) (build-path (current-output-dir) (resource-key r)))]))])