notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

optimistic fix for issue logging in.

Browse Source
This commit is contained in:
Bryce
2023-09-04 13:07:28 -07:00
parent 1d87687949
commit dcf1c8d990
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/cljs/auto_ap/effects.cljs
View File

@@ -16,6 +16,13 @@
[re-frame.core :as re-frame]
[venia.core :as v]))
(defn maybe-add-x-clients [headers]
(if (or (and (sequential? (:selected-clients @re-frame.db/app-db)) (every? int? (:selected-clients @re-frame.db/app-db)))
(and (sequential? (:selected-clients @re-frame.db/app-db)) (every? string? (:selected-clients @re-frame.db/app-db)))
(keyword? (:selected-clients @re-frame.db/app-db)))
(assoc headers "x-clients" (pr-str (:selected-clients @re-frame.db/app-db)))
headers))
(re-frame/reg-fx
:redirect
(fn [uri]
@@ -85,7 +92,7 @@
(let [headers (if token
(assoc headers "Authorization" (str "Token " token))
headers)
headers (assoc headers "x-clients" (pr-str (:selected-clients @re-frame.db/app-db)))
headers (maybe-add-x-clients headers)
response (<! (http/request {:method method
:body body
:headers headers
@@ -154,6 +161,8 @@
time))))
(re-frame/reg-fx
:graphql
(fn [{:keys [query on-success on-error token variables query-obj owns-state db]}]
@@ -166,7 +175,7 @@
(let [headers (if token
{"Authorization" (str "Token " token)}
{})
headers (assoc headers "x-clients" (pr-str (:selected-clients @re-frame.db/app-db)))
headers (maybe-add-x-clients headers)
on-success (if (fn? on-success)
on-success
(fn [result]