adding printout saying that the manifest is being written out too.

2011-09-26 14:59:21 -04:00 · 2011-09-26 14:59:21 -04:00 · 1635c0a5d2
commit 1635c0a5d2
parent f8b9496a86
1 changed files with 3 additions and 0 deletions
--- a/whalesong-helpers.rkt
+++ b/whalesong-helpers.rkt
@ -170,7 +170,10 @@
                                            #:manifest output-manifest-filename)
                                           op))
                                #:exists 'replace)
+
        ;; Write the manifest
+        (fprintf (current-report-port)
+                 (format "Writing manifest ~s\n" (build-path (current-output-dir) output-manifest-filename)))
        (call-with-output-file* (build-path (current-output-dir) output-manifest-filename)
                                (lambda (op)
                                  (fprintf op "CACHE MANIFEST\n")