🚧 Initial work on replace struct with spec.

backend/src/uxbox/util/exceptions.clj

@@ -5,16 +5,27 @@
 ;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>
 
 (ns uxbox.util.exceptions
-  "A helpers for work with exceptions.")
+  "A helpers for work with exceptions."
+  (:require [clojure.spec.alpha :as s]))
+
+(s/def ::type keyword?)
+(s/def ::code keyword?)
+(s/def ::mesage string?)
+(s/def ::hint string?)
+(s/def ::cause #(instance? Exception %))
+(s/def ::error-params
+  (s/keys :req-un [::type]
+          :opt-un [::code
+                   ::hint
+                   ::mesage
+                   ::cause]))
 
 (defn error
-  [& {:keys [type code message] :or {type :unexpected} :as payload}]
-  {:pre [(keyword? type) (keyword? code)]}
-  (let [message (if message
-                  (str message " / " (pr-str code) "")
-                  (pr-str code))
-        payload (assoc payload :type type)]
-    (ex-info message payload)))
+  [& {:keys [type code message hint cause] :as params}]
+  (s/assert ::error-params params)
+  (let [message (or message hint "")
+        payload (dissoc params :cause :message)]
+    (ex-info message payload cause)))
 
 (defmacro raise
   [& args]