@@ -53,8 +53,8 @@ responseRawSource :: (MonadIO m, MonadIO n)
53 => (Source m ByteString -> Sink ByteString n () -> IO ())
53 => (Source m ByteString -> Sink ByteString n () -> IO ())
54 -> Response
54 -> Response
55 -> Response
55 -> Response
56−responseRawSource app backup =
56+responseRawSource app =
57− responseRaw app' backup
57+ responseRaw app'
59 app' recv send =
59 app' recv send =
60 app src sink
60 app src sink