aboutsummaryrefslogtreecommitdiff
path: root/src/endpoint.lisp
diff options
context:
space:
mode:
authorcolin <colin@cicadas.surf>2024-10-20 07:28:41 -0700
committercolin <colin@cicadas.surf>2024-10-20 07:28:41 -0700
commit907732050e35ac0f8c2e607b636552ee80c0a65b (patch)
tree7c8be025439793bffa31eb0928de5bda755ffa1c /src/endpoint.lisp
parentff535d7f4819ef36441460b7ea8220aa1d704e3b (diff)
Modifiy doc gen to show return type
Diffstat (limited to 'src/endpoint.lisp')
-rw-r--r--src/endpoint.lisp6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp
index 4ec68b6..2d70aea 100644
--- a/src/endpoint.lisp
+++ b/src/endpoint.lisp
@@ -124,9 +124,11 @@ endpoints are dispatching on which routes and methods.")
(loop :repeat 80 :do (princ "_"))
(terpri)
(terpri)
- (format stream "~a ~a~%"
+ (format stream "~a ~a ~:[~;→~] ~a~%"
(request-method class)
- (route class))
+ (route class)
+ (content-type class)
+ (or (content-type class) ""))
(let ((*print-case* :downcase))
(loop :for slotdef :in (mop:class-slots class)
:for initarg := (first (mop:slot-definition-initargs slotdef))