From c036ba95416db2376f73793145382bff36ee21cc Mon Sep 17 00:00:00 2001
From: Spencer Florence <florence@ccs.neu.edu>
Date: Tue, 30 Dec 2014 17:38:14 -0600
Subject: [PATCH] added verbose flag

---
 private/coveralls.rkt | 9 +++++++--
 private/shared.rkt    | 3 +++
 raco.rkt              | 5 ++++-
 3 files changed, 14 insertions(+), 3 deletions(-)
 create mode 100644 private/shared.rkt

diff --git a/private/coveralls.rkt b/private/coveralls.rkt
index c7e0902..87bafb8 100644
--- a/private/coveralls.rkt
+++ b/private/coveralls.rkt
@@ -1,6 +1,6 @@
 #lang racket
 (provide generate-coveralls-coverage)
-(require racket/runtime-path json "format-utils.rkt")
+(require racket/runtime-path json "format-utils.rkt" "shared.rkt")
 
 (module+ test
   (require rackunit "../cover.rkt" racket/runtime-path))
@@ -15,9 +15,14 @@
   (define coverage-file (build-path coverage-path "coverage.json"))
   (define json (generate-coveralls-json coverage (hasheq)))
   (define meta-data (determine-build-type))
+  (define data (for/fold ([blob json]) ([(k v) meta-data]) (hash-set blob k v)))
   (with-output-to-file coverage-file
-    (thunk (write-json (for/fold ([blob json]) ([(k v) meta-data]) (hash-set blob k v))))
+    (thunk (write-json data))
     #:exists 'replace)
+  (when (verbose)
+    (printf "\n\n\nwriting json to file ~s\n" dir)
+    (write-json data (current-output-port))
+    (printf "\n\n\n"))
   (system* (path->string post) coverage-file))
 
 ;; Maps service name to the environment variable that indicates that the service is to be used.
diff --git a/private/shared.rkt b/private/shared.rkt
new file mode 100644
index 0000000..564b9c3
--- /dev/null
+++ b/private/shared.rkt
@@ -0,0 +1,3 @@
+#lang racket/base
+(provide verbose)
+(define verbose (make-parameter #f))
diff --git a/raco.rkt b/raco.rkt
index 63293b9..d8c09c7 100644
--- a/raco.rkt
+++ b/raco.rkt
@@ -1,5 +1,5 @@
 #lang racket
-(require raco/command-name "cover.rkt" "format.rkt")
+(require raco/command-name "cover.rkt" "format.rkt" "private/shared.rkt")
 
 (module+ main
 
@@ -17,6 +17,9 @@
       [("-c" "--coverage") format
        "Specify that coverage should be run and optional what format. Defaults to html."
        (set! output-format format)]
+      [("-v" "--verbose")
+       "Verbose mode"
+       (verbose #t)]
       #:args (file . files)
       (cons file files))))
   (define generate-coverage