Add log-level option to with-logging

Author: Deraen

src/compojure/api/exception.clj

@@ -61,10 +61,15 @@
 ;; Logging
 ;;
 
-(defn with-logging [handler]
-  (fn [^Exception e data req]
-    (logging/log! :error e (.getMessage e))
-    (handler e data req)))
+(defn with-logging
+  "Wrap compojure-api exception-handler a function which will log the
+  exception message and stack-trace with given log-level."
+  ([handler] (with-logging handler :error))
+  ([handler log-level]
+   {:pre [(#{:trace :debug :info :warn :error :fatal} log-level)]}
+   (fn [^Exception e data req]
+     (logging/log! log-level e (.getMessage e))
+     (handler e data req))))
 
 ;;
 ;; Mappings from other Exception types to our base types

test/compojure/api/middleware_test.clj

@@ -78,5 +78,5 @@
   (without-err
     (fact "Logging can be added to a exception handler"
       (let [handler (-> (fn [_] (throw (ex-info "Error parsing request" {:type ::ex/request-parsing} (RuntimeException. "Kosh"))))
-                        (wrap-exceptions (assoc-in default-options [:handlers ::ex/request-parsing] (ex/with-logging ex/request-parsing-handler))))]
-        (with-out-str (handler {})) => "ERROR Error parsing request\n"))))
+                        (wrap-exceptions (assoc-in default-options [:handlers ::ex/request-parsing] (ex/with-logging ex/request-parsing-handler :info))))]
+        (with-out-str (handler {})) => "INFO Error parsing request\n"))))