         ~@body)))
 
 (defn get-current-context
-  "Alias to cats.context/get-current for backward compatibility."
+  "Alias to `cats.context/get-current` for backward compatibility."
   {:deprecated true}
   ([] (ctx/get-current nil))
   ([default] (ctx/get-current default)))

  ([ctx v] (p/pure ctx v)))

(defn return
  "This is a monad version of pure and it works
  identically to it."
  ([v] (return (ctx/get-current) v))
  ([ctx v] (p/mreturn ctx v)))

  (bind mv identity))

(defn fmap
  "Apply a function `f` to the value inside functor `fv`,
  preserving the context type."
  ([f]
   (fn [fv]
