From 45388d006b15f02553ced7684f67f8718c992814 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Mon, 14 Feb 2022 13:30:26 -0600 Subject: typo in defendpoint* for /search. --- src/main.lisp | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/main.lisp b/src/main.lisp index 0dcc5cd..3c9092d 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -246,13 +246,12 @@ (defparameter +oneliners-description+ "TBD") -(defun init-app () - (lzb:provision-app () - :title "Oneliners Wiki API" - :version "0.0.1" - :desc +oneliners-description+ - :content-type "application/json" - :auth 'api-token-authorization)) +(lzb:provision-app () + :title "Oneliners Wiki API" + :version "0.0.1" + :desc +oneliners-description+ + :content-type "application/json" + :auth 'api-token-authorization) (defun api-token-authorization () ;; presently if the token merely exists then that's good enough. @@ -280,18 +279,17 @@ ;;; ENDPOINT DEFINITIONS (defendpoint* :get "/search" ((commands a-csl) - (keywords a-cls) + (keywords a-csl ) (limit an-int) (page a-page-key) (nextpage a-boolean) (notflagged a-boolean) (onlyaudited a-boolean)) - () + (:content-type "application/json") "A search endpoint returning a JSON encoded array of Oneliner Entries. **Note**: either command or keywords are required. " - (print commands) (cond ;; if page is incluced, ignore everything, fetch the next page, ;; and return it. -- cgit v1.2.3