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