refactor invalid form handling

This commit is contained in:
zapashcanon 2022-04-05 23:22:55 +02:00
parent 3796a96997
commit 9779ad88cf
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
3 changed files with 17 additions and 40 deletions

View file

@ -130,7 +130,4 @@ let post request =
| Ok () -> pp_discussion (request, user_id, comrade_id)
| Error e -> Utils.render e request
end
| `Ok _ -> Dream.respond ~status:`Bad_Request "invalid form"
| `Expired _ | `Many_tokens _ | `Missing_token _ | `Invalid_token _
| `Wrong_session _ | `Wrong_content_type ->
Dream.empty `Bad_Request )
| form -> Utils.handle_invalid_form form )