diff options
| author | colin <colin@cicadas.surf> | 2024-05-12 14:00:49 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-05-12 14:00:49 -0700 |
| commit | e1cff8d644e21bfbf8b7a76468c6c1130d4295e5 (patch) | |
| tree | e16ab74c063c61dc104c596406e2fc32d9f9afcb | |
| parent | c738009663ba243783b952a7fe0680c1dacee534 (diff) | |
Fix: authenticate and authorize syntax fixed
| -rw-r--r-- | src/defendpoint.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/defendpoint.lisp b/src/defendpoint.lisp index dd39368..ef5131b 100644 --- a/src/defendpoint.lisp +++ b/src/defendpoint.lisp @@ -198,9 +198,11 @@ PART is either :note "SYMBOL bound to the instance during the handler protocol.") (<authenticate> :match (:seq (:= :authenticate) (:item)) + :then (cons :authenticate (second <authenticate>)) :note "Body form of authenticate method.") (<authorize> :match (:seq (:= :authorize) (:item)) + :then (cons :authorize (second <authorize>)) :note "Body form of authorize method.") (<handle> :match (:seq (:= :handle) (:item)) |