Adds missing package object and minor fixes

build.sbt

@@ -6,7 +6,7 @@ ThisBuild / sonatypeRepository := "https://s01.oss.sonatype.org/service/local"
 inThisBuild(
   List(
     organization := "dev.playmonad",
-    homepage := Some(url("https://github.com/tlazaro/playmonad")),
+    homepage := Some(url("https://github.com/tlazaro/play-monad")),
     licenses := List("Apache-2.0" -> url("http://www.apache.org/licenses/LICENSE-2.0")),
     developers := List(
       Developer(

play-akka-streams/src/main/scala/dev/playmonad/MonadicAction.scala

@@ -58,7 +58,7 @@ object HeaderReader extends MonadicActionImplicits {
 object BodyReader extends MonadicActionImplicits {
   type Aux[Body, A] = IndexedStateT[EitherT[Future, Result, *], HeaderReader, BodyReader[Body], Future[A]]
 
-  def apply[A](bodyParser: BodyParser[A]): BodyReader.Aux[A, A] =
+  def withBody[A](bodyParser: BodyParser[A]): BodyReader.Aux[A, A] =
     IndexedStateT[EitherT[Future, Result, *], HeaderReader, BodyReader[A], Future[A]] { state =>
       val promise = Promise[A]()
 

play-akka-streams/src/main/scala/dev/playmonad/package.scala

@@ -0,0 +1,17 @@
+package dev
+
+import play.api.mvc.BodyParser
+import play.api.mvc.Results.BadRequest
+
+import scala.concurrent.Future
+
+package object playmonad {
+  def header(name: String): HeaderReader.Aux[String] = HeaderReader.withHeadersM { request =>
+    request.headers.get(name) match {
+      case Some(value) => Future.successful(Right(value))
+      case None        => Future.successful(Left(BadRequest(s"Header $name must be provided")))
+    }
+  }
+
+  def body[A](bodyParser: BodyParser[A]): BodyReader.Aux[A, A] = BodyReader.withBody(bodyParser)
+}

play-iteratees/src/main/scala/dev/playmonad/MonadicAction.scala

@@ -9,7 +9,6 @@ import scala.concurrent.{ExecutionContext, Future, Promise}
 
 sealed trait RequestReader
 case class HeaderReader(requestHeader: RequestHeader)                           extends RequestReader
-case class HeaderReaderHeaderReader(requestHeader: RequestHeader)               extends RequestReader
 case class BodyReader[A](accumulator: Iteratee[Array[Byte], Either[Result, A]]) extends RequestReader
 
 trait MonadicActionImplicits {

play-iteratees/src/main/scala/dev/playmonad/package.scala

@@ -0,0 +1,17 @@
+package dev
+
+import play.api.mvc.BodyParser
+import play.api.mvc.Results.BadRequest
+
+import scala.concurrent.Future
+
+package object playmonad {
+  def header(name: String): HeaderReader.Aux[String] = HeaderReader.withHeadersM { request =>
+    request.headers.get(name) match {
+      case Some(value) => Future.successful(Right(value))
+      case None        => Future.successful(Left(BadRequest(s"Header $name must be provided")))
+    }
+  }
+
+  def body[A](bodyParser: BodyParser[A]): BodyReader.Aux[A, A] = BodyReader.withBody(bodyParser)
+}

sample-play25/app/controllers/HelloController.scala

@@ -6,7 +6,6 @@ import dev.playmonad._
 import play.api.Play._
 import play.api.libs.concurrent.Execution.Implicits.defaultContext
 import play.api.mvc.BodyParsers
-import play.api.mvc.Action
 
 import scala.concurrent.Future
 
@@ -36,9 +35,7 @@ class HelloController {
       _        <- auth(name)
       jsonBody <- body(BodyParsers.parse.tolerantJson)
     } yield {
-      jsonBody.map { json =>
-        Ok(s"Hello $name, from $agent and ${json.toString()}")
-      }
+      jsonBody.map(json => Ok(s"Hello $name, from $agent and $json"))
     }
   }
 }