on master help sign in
hlint suggestion
3cb72aaRudi Grinberg
wai-conduit/Network/Wai/Conduit.hs+2−2
@@ -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'
58 where
58 where
59 app' recv send =
59 app' recv send =
60 app src sink
60 app src sink