From 87bd655253ea4292a822e5ed953da18ecc18a43a Mon Sep 17 00:00:00 2001
From: Bryce <bryce@brycecovertoperations.com>
Date: Mon, 22 Jan 2024 11:01:48 -0800
Subject: [PATCH] Should fix read-only users with tons of clients

---
 src/clj/auto_ap/routes/auth.clj                    | 2 +-
 src/clj/auto_ap/server.clj                         | 1 +
 src/clj/auto_ap/ssr/admin/transaction_rules.fiddle | 0
 3 files changed, 2 insertions(+), 1 deletion(-)
 create mode 100644 src/clj/auto_ap/ssr/admin/transaction_rules.fiddle

diff --git a/src/clj/auto_ap/routes/auth.clj b/src/clj/auto_ap/routes/auth.clj
index c23c5fe5..79319b07 100644
--- a/src/clj/auto_ap/routes/auth.clj
+++ b/src/clj/auto_ap/routes/auth.clj
@@ -49,7 +49,7 @@
                       :db/id (:db/id user)
                       :user/role    (name (:user/role user))
                       :user/name    (:user/name user)}
-                (= "admin" (name (:user/role user)))
+                (#{"admin" "read-only"} (name (:user/role user)))
                (assoc :gz-clients (->> (:user/clients user)
                                        (map (fn [c]
                                               (select-keys c [:client/code :db/id :client/locations])))
diff --git a/src/clj/auto_ap/server.clj b/src/clj/auto_ap/server.clj
index 2399011e..0f53c817 100644
--- a/src/clj/auto_ap/server.clj
+++ b/src/clj/auto_ap/server.clj
@@ -67,6 +67,7 @@
   :start (run-jetty app {:port port
                          :join? false
                          :configurator configure-jetty
+                         :response-header-size 16384
                          :request-header-size 16384})
   :stop (.stop jetty))
 
diff --git a/src/clj/auto_ap/ssr/admin/transaction_rules.fiddle b/src/clj/auto_ap/ssr/admin/transaction_rules.fiddle
new file mode 100644
index 00000000..e69de29b