5 lines
190 B
Common Lisp
5 lines
190 B
Common Lisp
(in-package :ml-survey/handlers)
|
|
|
|
(define-easy-handler (surveys :uri "/") nil
|
|
(let ((stored-surveys (load-response (make-surveys-db-file))))
|
|
(ml-survey/views:surveys stored-surveys)))
|