add better malformed request error messaging

This commit is contained in:
Gered 2014-04-06 17:04:21 -04:00
parent 7279075e07
commit 363edd0200

View file

@ -8,10 +8,15 @@
:available-media-types ["application/json"] :available-media-types ["application/json"]
:malformed? :malformed?
(fn [_] (fn [_]
(not (art/valid-name? q))) (if-not (art/valid-name? q)
{:error "Invalid name."}))
:handle-ok :handle-ok
(fn [_] (fn [_]
(art/search q))) (art/search q))
:handle-malformed
(fn [ctx]
(:error ctx))
)
(register-routes api-art-routes (register-routes api-art-routes
(ANY "/api/art" {{q :q} :params} (art-search q))) (ANY "/api/art" {{q :q} :params} (art-search q)))