From 1635c0a5d2cbd8b8a3a5aa46a924b08cdbd18553 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Mon, 26 Sep 2011 14:59:21 -0400 Subject: [PATCH] adding printout saying that the manifest is being written out too. --- whalesong-helpers.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/whalesong-helpers.rkt b/whalesong-helpers.rkt index dd00de6..2ced6cb 100644 --- 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")