(ns metabase.metabot.feedback (:require [clj-http.client :as http] [metabase.analytics.snowplow :as snowplow] [metabase.metabot.settings :as metabot-settings] [metabase.util.json :as json])) | |
(def ^:private snowplow-keys [:entity_type :prompt_template_versions :feedback_type]) (def ^:private feedback-keys (into snowplow-keys [:prompt :sql])) | |
Store feedback details, including the original prompt and generated sql. | (defn- store-detailed-feedback
[feedback]
(let [feedback (select-keys feedback feedback-keys)
{:keys [status body]} (http/request
{:url (metabot-settings/metabot-feedback-url)
:method :post
:body (json/encode feedback {:pretty true})
:throw-exceptions false
:as :json
:accept :json
:content-type :json})]
(when (= 200 status) body))) |
Store user-generated feedback as both a concise value in snowplow and more detailed values in a separate endpoint. | (defn submit-feedback
[feedback]
(let [snowplow-feedback (select-keys feedback snowplow-keys)]
(snowplow/track-event! ::snowplow/metabot
(assoc snowplow-feedback :event :metabot-feedback-received))
(store-detailed-feedback feedback))) |