fix: throw when temml output is not string
This commit is contained in:
@@ -55,7 +55,11 @@
|
|||||||
(defn command-worker [x]
|
(defn command-worker [x]
|
||||||
(cbor/encode cbor/default-codec (:in *worker*) x)
|
(cbor/encode cbor/default-codec (:in *worker*) x)
|
||||||
(.flush (:in *worker*))
|
(.flush (:in *worker*))
|
||||||
(cbor/decode cbor/default-codec (:out *worker*)))
|
(let [r (cbor/decode cbor/default-codec (:out *worker*))]
|
||||||
|
(if (string? r)
|
||||||
|
r
|
||||||
|
(throw (ex-info "bad data from temml worker"
|
||||||
|
{:data r})))))
|
||||||
|
|
||||||
(defn render-inline [s]
|
(defn render-inline [s]
|
||||||
(command-worker s))
|
(command-worker s))
|
||||||
|
|||||||
Reference in New Issue
Block a user