Add HTTP 500 handler for the API

Author: dakrone

README.md

@@ -259,6 +259,7 @@ Expect that this API might change between now and any time this is released.
 
 - API for adding examples
 - API for adding comments
+- Tests!
 
 ## See Also
 

src/eisago/api.clj

@@ -10,6 +10,12 @@
   [req]
   {:status 404 :body (json/encode {:status 404 :message "Invalid request"})})
 
+(defn error
+  "Response for API 500 errors"
+  [req]
+  {:status 500 :body (json/encode {:status 500
+                                   :message "There was an unknown error"})})
+
 (defn search
   "API implementation of searching, lib and namespace can be optionally
   specified as paths, with name and query optionally specified in
@@ -75,7 +81,8 @@
 
    #"^/_stats/?$" #'stats
 
-   :404 #'missing))
+   :404 #'missing
+   :500 #'error))
 
 (defn start-server []
   (laeggen/start (assoc (config :laeggen) :urls urls)))