Merge remote-tracking branch 'origin/tests' into tests

This commit is contained in:
Felisp 2024-12-11 23:43:42 +01:00
commit 74ecc3bb76
2 changed files with 3 additions and 0 deletions

View file

@ -162,6 +162,7 @@
(throw (ex-info "404" {:status 404 (throw (ex-info "404" {:status 404
:header {"Content-Type" "text/plain"} :header {"Content-Type" "text/plain"}
:body (str "404 This server has nothing but " served-filename)}))) :body (str "404 This server has nothing but " served-filename)})))
;; BUG: This also keeps hapening when board cache is nil
(when-not (contains? @boards-enabled-cache board) (when-not (contains? @boards-enabled-cache board)
(throw (ex-info "403" {:status 403 (throw (ex-info "403" {:status 403
:header {"Content-Type" "text/plain"} :header {"Content-Type" "text/plain"}

View file

@ -54,6 +54,8 @@
v v
[v])) [v]))
;; TODO: Macro that will update all keys with specified function
;; ===== Generic functions ==== ;; ===== Generic functions ====
(defn indices (defn indices