hlint suggestion
commit3cb72aad0bf22f8003ff3a7056b9ea6da5e0683b
authorRudi Grinberg <rudi.grinberg@gmail.com>
dateThu 13 Nov 2014, 20:14 (12 years ago)
parentd362d3e
wai-conduit/Network/Wai/Conduit.hs+2−2
@@ -53,8 +53,8 @@ responseRawSource :: (MonadIO m, MonadIO n)
5353 => (Source m ByteString -> Sink ByteString n () -> IO ())
5454 -> Response
5555 -> Response
56−responseRawSource app backup =
57− responseRaw app' backup
56+responseRawSource app =
57+ responseRaw app'
5858 where
5959 app' recv send =
6060 app src sink