mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

used *clog-auth-key* for consistency in clog-auth.lisp

Browse source
This commit is contained in:
Shaka Chen 2022-07-27 09:51:08 +08:00
parent 130192ad5c
commit c0e70f0fae
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-auth.lisp
View file

@ -75,10 +75,10 @@ for CLOG")
(check-type body clog-body) (check-type body clog-body)
(set-on-storage (window body) (lambda (obj data) (set-on-storage (window body) (lambda (obj data)
(declare (ignore obj)) (declare (ignore obj))
(set-on-storage (window body) nil) (set-on-storage (window body) nil)
(when (equalp (getf data :key) (when (equalp (getf data :key)
"clog-auth-token") *clog-auth-key*)
(funcall handler body))))) (funcall handler body)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-auth - Authorization ;; Implementation - clog-auth - Authorization