Argonaut Decode Directive

gistfile1.scala

  def decodeJson[A:DecodeJson] = Directive{ req:HttpRequest[Any] =>
    def error(msg:String) = Result.Error(
      BadRequest ~> ResponseString("Invalid JSON request: " + msg)
    )

    JsonRequest(req).decode[A] match {
      case -\/(-\/(invalidJsonErr))    => error(invalidJsonErr)
      case -\/(\/-((decodeFailErr,_))) => error(decodeFailErr)
      case \/-(a)                      => Result.Success(a)
    }
  }