starred/Doplarr-kiranshila
1
0
Fork 0
mirror of https://github.com/kiranshila/Doplarr.git synced 2026-04-05 08:53:59 -04:00
Code Issues Packages Projects Releases 10 Wiki Activity

Merge pull request #54 from kiranshila/develop

Browse Source 
Trace-level HTTP logging
This commit is contained in:
Kiran Shila
2022-01-17 18:09:23 -08:00
committed by GitHub
parent 03fac8ce92 5ac858d014
commit 43325f6e67
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/doplarr/interaction_state_machine.clj
View File

@@ -116,12 +116,12 @@
:embed (m/create-message! messaging channel-id (discord/request-performed-embed embed user-id)) :embed (m/create-message! messaging channel-id (discord/request-performed-embed embed user-id))
(m/create-message! messaging channel-id (discord/request-performed-plain payload media-type user-id))))))) (m/create-message! messaging channel-id (discord/request-performed-plain payload media-type user-id)))))))
(else (fn [e] (else (fn [e]
(let [{:keys [status body] :as data} (ex-data e)] (let [{:keys [status body]} (ex-data e)]
(if (= status 403) (if (= status 403)
(->> @(m/edit-original-interaction-response! messaging bot-id token (discord/content-response (body "message"))) (->> @(m/edit-original-interaction-response! messaging bot-id token (discord/content-response (body "message")))
(else #(fatal % "Error in sending request failure response"))) (else #(fatal % "Error in sending request failure response")))
(->> @(m/edit-original-interaction-response! messaging bot-id token (discord/content-response "Unspecified error on request, check logs")) (->> @(m/edit-original-interaction-response! messaging bot-id token (discord/content-response "Unspecified error on request, check logs"))
(then #(fatal data "Non 403 error on request")) (then #(fatal % "Non 403 error on request"))
(else #(fatal % "Error in sending error response"))))))))))) (else #(fatal % "Error in sending error response")))))))))))
(defn continue-interaction! [interaction] (defn continue-interaction! [interaction]

3
src/doplarr/utils.clj
View File

@@ -8,7 +8,7 @@
[doplarr.state :as state] [doplarr.state :as state]
[fmnoise.flow :as flow :refer [else then]] [fmnoise.flow :as flow :refer [else then]]
[hato.client :as hc] [hato.client :as hc]
[taoensso.timbre :refer [fatal]])) [taoensso.timbre :refer [fatal trace]]))
(defn deep-merge [a & maps] (defn deep-merge [a & maps]
(if (map? a) (if (map? a)
@@ -18,6 +18,7 @@
(defn http-request [method url key & [params]] (defn http-request [method url key & [params]]
(let [chan (a/promise-chan) (let [chan (a/promise-chan)
put (partial a/put! chan)] put (partial a/put! chan)]
(trace "Performing HTTP request" method url params)
(hc/request (hc/request
(deep-merge (deep-merge
{:method method {:method method