Add API-ERROR restart to api page.

Shirakumo · Feb 8, 2019 · 24c4d01 · 24c4d01
1 parent 916d056
commit 24c4d01
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/api.lisp b/api.lisp
@@ -156,8 +156,12 @@
                                      (url-encode message)))
                    (api-output err :status code :message message)))))
       (handler-case
-          (handler-bind ((api-error #'maybe-invoke-debugger))
-            (call-api-request api-endpoint *request*))
+          (restart-case
+              (handler-bind ((api-error #'maybe-invoke-debugger))
+                (call-api-request api-endpoint *request*))
+            (api-error (err)
+              :report "Treat as API error."
+              (output-error err 500)))
         (api-error (err)
           (output-error err 500))
         (request-not-found (err)