   (ctx/with-context (ctx/get-current mv)
     (mlet [v mv
            :when (p v)]
-          (return v))))
+      (return v))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Haskell-style aliases and util functions.

  (ctx/with-context (ctx/get-current mf)
    (mlet [a (mf x)
           b (mg a)]
          (return b))))

(defn <=<
  "Right-to-left composition of monads.

  (ctx/with-context (ctx/get-current mf)
    (mlet [a (mf x)
           b (mg a)]
      (return b))))

(defn extract
  "Generic function for unwrap/extract
