 
 (defn- debug-command
   [opts args]
-  (pprint opts)
-  (pprint args))
+  (cprint opts)
+  (cprint args))
 
 
 (defn- not-yet-implemented

(ns vault.tool
  (:require (clojure
              [edn :as edn]
              [pprint :refer [pprint]])
            [vault.cli :refer [command execute]]
            (vault.store
              [file :refer [file-store]])
            (vault.tool
              [config :as config]
              [blob :as blob-tool]))


    (command "config <type>"
      "Show configuration information."

      (command "dump"
        "Prints out a raw version of the configuration map."

        ["--pretty" "Formats the info over multiple lines for easier viewing."
         :flag true :default false]

        (action [opts args]
          (if (:pretty opts)
            (cprint opts)
            (prn opts))))

      (command "stores"
        "List the available blob stores."
