From 907732050e35ac0f8c2e607b636552ee80c0a65b Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 20 Oct 2024 07:28:41 -0700
Subject: Modifiy doc gen to show return type

---
 src/endpoint.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src')

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))
-- 
cgit v1.2.3