          (str v))])
 
   #?@(:cljs
-       [cljs.core/IEquiv
-        (-equiv [_ other]
-                (if (instance? Identity other)
-                  (= v (.-v other))
-                  false))]))
+      [cljs.core/IEquiv
+       (-equiv [_ other]
+         (if (instance? Identity other)
+           (= v (.-v other))
+           false))]))
 
 (alter-meta! #'->Identity assoc :private true)
 


(ns cats.monad.identity
  "The Identity Monad."
  (:require [cats.protocols :as proto])
  (:refer-clojure :exclude [identity]))

(declare identity-monad)

  "The Identity transformer constructor."
  [inner-monad]
  (reify
    p/Monad
    (mreturn [_ v]
      (identity (p/mreturn inner-monad v)))

    (mbind [_ mv f]
      nil)))
