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

Optimize code readability

Browse source
This commit is contained in:
Marcus Kammer 2024-06-23 15:16:25 +02:00
parent 2c7976aaf5
commit ae31001fcf
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/handlers/surveys.lisp
View file

@ -1,9 +1,9 @@
(in-package :ml-survey/handlers)
(define-easy-handler (surveys :uri "/") nil
(ml-survey/views:surveys (mapcar (lambda (x)
(make-instance 'ml-survey:survey
:id (format nil
"~a"
(first x))))
(load-response (make-surveys-db-file)))))
(let* ((survey-db (load-response (make-surveys-db-file)))
(list-of-surveys (mapcar (lambda (x)
(make-instance 'ml-survey:survey
:id (format nil "~a" (first x))))
survey-db)))
(ml-survey/views:surveys list-of-surveys)))