greg/mentat
1
0
Fork 0
Code Issues 294 Pull requests Projects Releases 9 Packages Wiki Activity

Pre: Catch Throwable, not Exception.

Browse source
This commit is contained in:
Nick Alexander 2016-07-27 08:55:45 -07:00
parent 2c1745fa3b
commit 0c51cb6236
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/datomish/pair_chan.cljc
View file

@ -33,7 +33,7 @@
(clojure.core.async/go (clojure.core.async/go
(try (try
(do ~@body) (do ~@body)
(catch Exception ex# (catch Throwable ex#
(clojure.core.async/>! ~chan [nil ex#])))) (clojure.core.async/>! ~chan [nil ex#]))))
~chan))) ~chan)))
@ -56,7 +56,7 @@
(clojure.core.async/go (clojure.core.async/go
(try (try
(clojure.core.async/>! pc-chan# [(do ~@body) nil]) (clojure.core.async/>! pc-chan# [(do ~@body) nil])
(catch Exception ex# (catch Throwable ex#
(clojure.core.async/>! pc-chan# [nil ex#])))) (clojure.core.async/>! pc-chan# [nil ex#]))))
pc-chan#))) pc-chan#)))

2
src/datomish/sqlite.cljc
View file

@ -85,7 +85,7 @@
(do (do
(<? (execute! db ["ROLLBACK TRANSACTION"])) (<? (execute! db ["ROLLBACK TRANSACTION"]))
[nil e]))) [nil e])))
(catch #?(:clj Exception :cljs js/Error) e (catch #?(:clj Throwable :cljs js/Error) e
[nil e])))) [nil e]))))
(defn get-user-version [db] (defn get-user-version [db]