                                 (assoc :logged-on (t/now))
                                 (dissoc :swagger)
                                 (dissoc :configuration)
+                                (dissoc :body)
                                 (dissoc-in [:tokeninfo "access_token"]))]
               (add-logs audit-logs [audit-log])
               response)))))

          (add-logs audit-logs previous-logs)
          (log/warn "Could not store audit logs because of %s." (str t)))))))

(defn schedule-audit-log-flusher [bucket audit-logs configuration]
  (when bucket
    (let [flush-interval (or (:audit-flush-millis configuration) default-audit-flush-millis)
          pool (at/mk-pool :cpu-count 1)]
      (at/every flush-interval #(store-audit-logs! audit-logs bucket) pool :initial-delay flush-interval)
      pool)))

(defn stop-audit-log-flusher [bucket audit-logs pool]
  (when bucket
    (dosync
      (at/stop-and-reset-pool! pool :strategy :kill)

                            :hystrix-httpd        (run-hystrix-jetty (merge configuration {:join? false
                                                                                           :port  7979}))
                            :handler              handler
                            :audit-log-flush-pool (schedule-audit-log-flusher! audit-logs-bucket audit-logs configuration)}))))))

(defn stop-component
  "Stops the http component."
