   (let [{body :body :as response} @(http/get config/google-tokeninfo-url
                                              {:as :text
                                               :query-params {"id_token" token}})]
-    (assoc response :body (json/parse-string body munge-keyword))))
+    (assoc response :body (json/parse-string body snake-case->hyphenated-kw))))
 
 (defn token->credentials
   "Validates a JWT by calling Google's API and by checking the client ID."


            [time-tracker.config :as config]))

(defn- munge-keyword
  "In: \"key_string\"
  Out: :key-string"
  [key-string]


(defn token-from-headers
  "Extracts the token from a Ring header map, if present.
  See: https://jwt.io/introduction/"
  [ring-headers]
  (if-let [header-value (get ring-headers "authorization")]
    (let [[scheme token] (clojure.string/split header-value #" ")]
