Add cases to newly-introduced outputStream
commitd11f7aaf25a5d52e2684825f83b6db1ea4571da8
authorAndrew Pritchard <awpr@google.com>
dateSat 15 Aug 2015, 14:27 (11 years ago)
parent60518bd
warp/Network/Wai/Handler/Warp/HTTP2/Types.hs+2
@@ -79,6 +79,8 @@ data Output = OFinish
7979outputStream :: Output -> Stream
8080outputStream (OResponse strm _ _ _) = strm
8181outputStream (ONext strm _) = strm
82+outputStream (OPush strm _ _ _ _ _) = strm
83+outputStream (OTrailers strm _) = strm
8284outputStream _ = error "outputStream"
8385
8486----------------------------------------------------------------