Showing with 9 additions and 1 deletion.

+1 −1 core/src/main/scala/scalaz/WriterT.scala

+8 −0 core/src/main/scala/scalaz/unused.scala
diff --git a/core/src/main/scala/scalaz/WriterT.scala b/core/src/main/scala/scalaz/WriterT.scala
@@ -438,5 +438,5 @@ private trait WriterTMonadListen[F[_], W] extends MonadListen[WriterT[F, W, ?],
   def writer[A](w: W, v: A): WriterT[F, W, A] = WriterT.writerT(F.point((w, v)))
 
   def listen[A](fa: WriterT[F, W, A]): WriterT[F, W, (A, W)] =
-    WriterT(F.bind(fa.run){ case (w, a) => F.point((w, (a, w))) })
+    WriterT(F.map(fa.run){ case (w, a) => (w, (a, w)) })
 }
diff --git a/core/src/main/scala/scalaz/unused.scala b/core/src/main/scala/scalaz/unused.scala
@@ -0,0 +1,8 @@
+package scalaz
+
+/**
+ * Mark an explicit or implicit parameter as known to be unused, as shorthand
+ * for the longer form, useful in combination with
+ * `-Ywarn-unused:explicits,implicits` compiler options.
+ */
+class unused extends deprecated("unused", "")