suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing log messages on resources

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 15:26:31 -04:00
parent bd45b9d1e8
commit e0f1ad79cd
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
whalesong-helpers.rkt
View File

@ -68,7 +68,7 @@
[else [else
(fprintf (current-report-port) (fprintf (current-report-port)
(format "Writing resource ~s\n" (build-path (current-output-dir) (format "Writing resource ~s\n" (build-path (current-output-dir)
(resource-path r)))) (resource-key r))))
(copy-file (resource-path r) (copy-file (resource-path r)
(build-path (current-output-dir) (build-path (current-output-dir)
(resource-key r)))]))]) (resource-key r)))]))])
@ -107,6 +107,11 @@
(cond [(same-file? (build-path (current-output-dir) (cond [(same-file? (build-path (current-output-dir)
(resource-key r)) (resource-key r))
(resource-path 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)] (void)]
[else [else
(error 'whalesong "Unable to write resource ~s; this will overwrite a file" (error 'whalesong "Unable to write resource ~s; this will overwrite a file"
@ -115,7 +120,7 @@
[else [else
(fprintf (current-report-port) (fprintf (current-report-port)
(format "Writing resource ~s\n" (build-path (current-output-dir) (format "Writing resource ~s\n" (build-path (current-output-dir)
(resource-path r)))) (resource-key r))))
(copy-file (resource-path r) (copy-file (resource-path r)
(build-path (current-output-dir) (build-path (current-output-dir)
(resource-key r)))]))]) (resource-key r)))]))])