>=> returns a function

[luminusian]

Is this a bug?

((m/>=> maybe/just maybe/just) 0)
CompilerException clojure.lang.ArityException: Wrong number of args (2) passed to: core/>=>, compiling:

(m/>=> maybe/just maybe/just 0)
=>
#object[cats.builtin$reify__1037$fn__1040
        0x10a68dba
        "cats.builtin$reify__1037$fn__1040@10a68dba"]

Here is an alternative implementation:

(defn >=>
  ([f g]
   (fn [x] (m/>>= (f x) g)))
  ([f g x]
   ((>=> f g) x)))

((>=> maybe/just maybe/just) 0)
=> #<Just 0>
(>=> maybe/just maybe/just 0)
=> #<Just 0>

https://hackage.haskell.org/package/base-4.9.0.0/docs/src/Control.Monad.html#%3E%3D%3E

[niwinz]

Feel free to open a PR for that ;)