Add recovery middleware

src/app.lisp

@@ -32,7 +32,8 @@
                      :directory "src/routes")
   (jg:static-path *app* "/assets/" "src/assets/")
   (jg:install-middleware *app* mw:*public-files*)
-  (jg:install-middleware *app* mw:*normalize-path*))
+  (jg:install-middleware *app* mw:*normalize-path*)
+  (jg:install-middleware *app* mw:*recovery*))
 
 (defun update ()
   (stop)

src/middlewares/recovery.lisp

@@ -0,0 +1,15 @@
+(defpackage #:hp/middlewares/recovery
+  (:use #:cl)
+  (:export #:*recovery*))
+(in-package #:hp/middlewares/recovery)
+
+;;; TODO: insert logger
+
+(defparameter *recovery*
+  (lambda (app)
+    (lambda (env)
+      (handler-case
+          (funcall app env)
+        (error (c)
+          `(500 (:content-type "text/plain")
+                (,(format nil "Internal Server Error: ~a~%" c))))))))