excluding some stuff from PNL

This commit is contained in:
Bryce Covert
2019-05-05 17:57:37 -07:00
parent 8753560b84
commit 918f2e5be1
4 changed files with 38 additions and 13 deletions

View File

@@ -16,7 +16,8 @@
{:status 200
:body (pr-str (ql/query (:identity r) (doto (if (= request-method :get) (query-params "query") body) println) variables ))
:headers {"Content-Type" "application/edn"}})
(catch Exception e
(catch Throwable e
(if-let [result (:result (ex-data e))]
{:status 400
:body (pr-str result)
@@ -25,9 +26,10 @@
{:status 400
:body (pr-str {:errors [(merge {:message message} (ex-data e))]})
:headers {"Content-Type" "application/edn"}}
{:status 500
:body (pr-str {:errors [(merge {:message (.getMessage e)} (ex-data e))]})
:headers {"Content-Type" "application/edn"}})))))
(do (println e)
{:status 500
:body (pr-str {:errors [(merge {:message (.getMessage e)} (ex-data e))]})
:headers {"Content-Type" "application/edn"}}))))))
(defroutes routes