diff options
| author | colin <colin@cicadas.surf> | 2024-08-17 08:05:25 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-08-17 08:05:25 -0700 |
| commit | 9bf073c54f6a6dc70e01aa032fc53e2f06532275 (patch) | |
| tree | c525043323768ebdc8160104a1b47ca7b31c661b /src/endpoint.lisp | |
| parent | 26585f3cc99cdc14389cc7bb11686da2c7205a6c (diff) | |
Add: general http error for use in user applications
Diffstat (limited to 'src/endpoint.lisp')
| -rw-r--r-- | src/endpoint.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/endpoint.lisp b/src/endpoint.lisp index 52bce27..5c2a386 100644 --- a/src/endpoint.lisp +++ b/src/endpoint.lisp @@ -348,7 +348,12 @@ the ;." post-data :when= (http:raw-post-data :external-format :utf8 :want-stream (want-body-stream class)) - (funcall parser post-data))))) + (handler-case + (funcall parser post-data) + (error (e) + (protocol-error 'bad-body-error class + :wrapped e + :note "Error during the parsing of the body."))))))) (defun instantiate-endpoint (class args) |