add gets context (#235)

sovelten · web-flow · commit 533c5a7acaf8 · 2020-02-11T13:02:17.000-03:00
* add gets context
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,11 @@
 # Changelog #
 
+## Version 2.3.4
+
+Date: 2020-02-11
+
+- gets can receive monad context as argument
+
 ## Version 2.3.3
 
 Date: 2019-10-02
diff --git a/project.clj b/project.clj
@@ -1,4 +1,4 @@
-(defproject funcool/cats "2.3.3"
+(defproject funcool/cats "2.3.4"
   :description "Category Theory abstractions for Clojure"
   :url         "https://github.com/funcool/cats"
   :license {:name "BSD (2 Clause)"
diff --git a/src/cats/monad/state.cljc b/src/cats/monad/state.cljc
@@ -167,9 +167,11 @@
 (defn gets
   "State monad that returns the result of applying
   a function to a state"
-  [projfn]
-  (m/mlet [s (get)]
-    (m/return (projfn s))))
+  ([projfn context]
+   (m/mlet [s (get context)]
+     (m/return (projfn s))))
+  ([projfn]
+   (gets projfn (get-context))))
 
 (defn wrap-fn
   "Wraps a (possibly side-effecting) function to a state monad"

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-(defproject funcool/cats "2.3.3"`
	`1`	`+(defproject funcool/cats "2.3.4"`
`2`	`2`	`:description "Category Theory abstractions for Clojure"`
`3`	`3`	`:url "https://github.com/funcool/cats"`
`4`	`4`	`:license {:name "BSD (2 Clause)"`