Merge pull request #212 from Saityi/exception-value-names

Rename Success/Failure field names to match other monadic types

Author: yurrriq

src/cats/monad/exception.cljc

@@ -79,37 +79,37 @@
 
 (declare context)
 
-(defrecord Success [v]
+(defrecord Success [success]
   p/Contextual
   (-get-context [_] context)
 
   p/Extract
-  (-extract [_] v)
+  (-extract [_] success)
 
   p/Printable
   (-repr [_]
-    (str "#<Success " (pr-str v) ">"))
+    (str "#<Success " (pr-str success) ">"))
 
   #?@(:cljs [cljs.core/IDeref
-             (-deref [_] v)]
+             (-deref [_] success)]
       :clj  [clojure.lang.IDeref
-             (deref [_] v)]))
+             (deref [_] success)]))
 
-(defrecord Failure [e]
+(defrecord Failure [failure]
   p/Contextual
   (-get-context [_] context)
 
   p/Extract
-  (-extract [_] e)
+  (-extract [_] failure)
 
   p/Printable
   (-repr [_]
-    (str "#<Failure " (pr-str e) ">"))
+    (str "#<Failure " (pr-str failure) ">"))
 
   #?@(:cljs [cljs.core/IDeref
-             (-deref [_] (throw e))]
+             (-deref [_] (throw failure))]
       :clj  [clojure.lang.IDeref
-             (deref [_] (throw e))]))
+             (deref [_] (throw failure))]))
 
 (alter-meta! #'->Success assoc :private true)
 (alter-meta! #'->Failure assoc :private true)
@@ -216,7 +216,7 @@
   (let [result (exec-try-on func)]
     (ctx/with-context context
       (if (failure? result)
-        (recoverfn (.-e ^Failure result))
+        (recoverfn (.-failure ^Failure result))
         result))))
 
 #?(:clj