   (let [value (:value data)]
     (if (empty? value)
       ""
-      (get (json/read-str value) "type"))))
+      (get (read-json-str value) "type"))))
 
 (defn- token? [data]
   "returns true if the json provided is of type token"

        item (.get-item storage full-path)
        json (if (empty? item)
               {}
               (walk/keywordize-keys (json/read-str (:value item))))
        new-json {:description description
                  :values {(keyword good-envt) {:value value :source path}}
                  :type "token"}


(defn- app? [data]
  "returns true if the json provided is of type application"
  (try
    (= "application" (get-type data))
    (catch IllegalStateException e
       (throw (IllegalStateException. (str "Unable to determine if " data " is an app:\n" (.getMessage e)))))))

(defn- path->full-path [path]
  "adds the base path back in"
