Add error directory and address

4 years ago · 0053b38eb3
parent ac3d3cc35d
commit 0053b38eb3
1 changed files with 2 additions and 0 deletions
--- a/loli.lisp
+++ b/loli.lisp
@ -49,7 +49,9 @@ Use cl-rng to pick a random page from the lolibooru API"
 (defun configure ()
  (setf *serb* (make-instance 'hunchentoot:easy-acceptor
                              :port (config-item :port)
+                              :address (config-item :host)
                              :document-root (config-item :document-root)
+                              :error-template-directory (config-item :error-root)
                              ;; We (eval) these because quoting streams is werid.
                              ;; '*standard-ouput* is not of type stream why?
                              :access-log-destination (eval (config-item :access-log))