11 lines
313 B
Plaintext
11 lines
313 B
Plaintext
(import spork/json :as j)
|
|
(import /base :as b)
|
|
|
|
(defn scan-error [e out] (set (out :errors) e) (j/encode out))
|
|
|
|
(defn parse-error [e out] (set (out :errors) e) (j/encode out))
|
|
|
|
(defn validation-error [e out] (set (out :errors) e) (j/encode out))
|
|
|
|
(defn runtime-error [e out] (set (out :errors) e) (j/encode out))
|