package scalaz
package http
import request.Request
import response.Response
import response.{ResponseHeader, Status}
trait StreamStreamApplications {
implicit def responseFromStatus(s: Status)(implicit req: Request[Stream]): Response[Stream] =
Response.emptyHeadersBodyStatusResponse[Stream, Stream](s)
}
object StreamStreamApplication extends StreamStreamApplications {
def response(s: Status, h: List[(ResponseHeader, NonEmptyList[Char])], b: Stream[Byte])(implicit req: Request[Stream]) =
Response.statusResponse[Stream, Stream](s, h, b)
def response(s: Status, b: Stream[Byte])(implicit req: Request[Stream]) =
Response.emptyHeadersStatusResponse[Stream, Stream](s, b)
def response(s: Status, h: List[(ResponseHeader, NonEmptyList[Char])])(implicit req: Request[Stream]) =
Response.emptyStatusResponse[Stream, Stream](s, h)
def redirect(location: NonEmptyList[Char], parameters: (String, String)*)(implicit req: Request[Stream]) = Response.redirect[Stream, Stream](location, parameters: _*)
def redirect(location: String, parameters: (String, String)*)(implicit req: Request[Stream]) = Response.redirects[Stream, Stream](location, parameters: _*)
}