mirror of
https://github.com/penpot/penpot.git
synced 2025-05-21 23:06:10 +02:00
🔥 Replace spec with schema on feedback RPC methods
This commit is contained in:
parent
073621f29a
commit
969c9105fd
1 changed files with 8 additions and 12 deletions
|
@ -8,29 +8,25 @@
|
||||||
"A general purpose feedback module."
|
"A general purpose feedback module."
|
||||||
(:require
|
(:require
|
||||||
[app.common.exceptions :as ex]
|
[app.common.exceptions :as ex]
|
||||||
[app.common.spec :as us]
|
[app.common.schema :as sm]
|
||||||
[app.config :as cf]
|
[app.config :as cf]
|
||||||
[app.db :as db]
|
[app.db :as db]
|
||||||
[app.email :as eml]
|
[app.email :as eml]
|
||||||
[app.rpc :as-alias rpc]
|
[app.rpc :as-alias rpc]
|
||||||
[app.rpc.commands.profile :as profile]
|
[app.rpc.commands.profile :as profile]
|
||||||
[app.rpc.doc :as-alias doc]
|
[app.rpc.doc :as-alias doc]
|
||||||
[app.util.services :as sv]
|
[app.util.services :as sv]))
|
||||||
[clojure.spec.alpha :as s]))
|
|
||||||
|
|
||||||
(declare ^:private send-feedback!)
|
(declare ^:private send-feedback!)
|
||||||
|
|
||||||
(s/def ::content ::us/string)
|
(def ^:private schema:send-user-feedback
|
||||||
(s/def ::from ::us/email)
|
[:map {:title "send-user-feedback"}
|
||||||
(s/def ::subject ::us/string)
|
[:subject :string]
|
||||||
|
[:content :string]])
|
||||||
(s/def ::send-user-feedback
|
|
||||||
(s/keys :req [::rpc/profile-id]
|
|
||||||
:req-un [::subject
|
|
||||||
::content]))
|
|
||||||
|
|
||||||
(sv/defmethod ::send-user-feedback
|
(sv/defmethod ::send-user-feedback
|
||||||
{::doc/added "1.18"}
|
{::doc/added "1.18"
|
||||||
|
::sm/params schema:send-user-feedback}
|
||||||
[{:keys [::db/pool]} {:keys [::rpc/profile-id] :as params}]
|
[{:keys [::db/pool]} {:keys [::rpc/profile-id] :as params}]
|
||||||
(when-not (contains? cf/flags :user-feedback)
|
(when-not (contains? cf/flags :user-feedback)
|
||||||
(ex/raise :type :restriction
|
(ex/raise :type :restriction
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue