nat/natalieee.net
1
0
Fork 1
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

remove name conflict

Browse Source
This commit is contained in:
natalie roentgen connolly
2025-07-05 04:43:15 -07:00
parent 4c18a29a0c
commit 2d51ad37e8
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
srv/content/router.hy
View File

@ -9,9 +9,6 @@
(import functools [lru-cache]) (import functools [lru-cache])
(import os.path [isdir :as dir? isfile :as file? abspath]) (import os.path [isdir :as dir? isfile :as file? abspath])
(defmacro unless [test #* body]
`(when (not ~test) (do ~@body)))
(defn error [code message] (defn error [code message]
(return (dict (return (dict
:code code :code code
@ -92,6 +89,7 @@
(defn 303-if-not-arpa [[unless (fn [#* _] False)]] (defn 303-if-not-arpa [[unless (fn [#* _] False)]]
(fn [f] (fn [f]
(fn [method path request] (fn [method path request]
(print request (unless request))
(if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request)) (if (or (. request (get "headers") (get "Host") (endswith "arpa")) (unless request))
(f method path request) (f method path request)
(dict (dict