marcuskammer/dev.metalisp.survey
1
0
Fork 0
Code Issues 9 Pull requests Projects Releases Packages Wiki Activity Actions

Update fileops

Browse source
This commit is contained in:
Marcus Kammer 2024-06-16 21:46:08 +02:00
parent 2bca763654
commit 2351a057b4
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/app.lisp
View file

@ -27,9 +27,9 @@
(defvar *app* (create-server 'app (defvar *app* (create-server 'app
8080 8080
:document-root :document-root
"public/" (public-dir)
:access-log-destination :access-log-destination
(uiop:merge-pathnames* #P"access.log" (app-dir)))) (access-log-file)))
(defun start () (defun start ()
(start-server *app*)) (start-server *app*))

6
src/fileops.lisp
View file

@ -66,3 +66,9 @@ within the data directory."
:direction :output :direction :output
:if-exists :supersede) :if-exists :supersede)
(prin1 responses stream))) (prin1 responses stream)))
(defun access-log-file ()
(uiop:merge-pathnames* #P"access.log" (app-dir)))
(defun public-dir ()
(uiop:merge-pathnames* #P"public/" (app-dir)))