Add better error reporting for exception monad.

funcool · Jul 4, 2016 · f95efcf · f95efcf
1 parent 756cc0e
commit f95efcf
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/cats/monad/exception.cljc b/src/cats/monad/exception.cljc
@@ -297,6 +297,9 @@
       (success v))
 
     (-mbind [_ s f]
+      (assert (exception? mv) (str "Context mismatch: " (p/-repr mv)
+                                   " is not allowed to use with exception context."))
+
       (if (success? s)
         (f (p/-extract s))
         s))