git.iko.soy/typeable/wai
on master help sign in
localizing a type.
29a600bKazu Yamamoto
warp/Network/Wai/Handler/Warp/HTTP2/Sender.hs+6
compare with master
unifiedsplit
@@ -37,6 +37,12 @@ import System.Posix.Types
37
37
38----------------------------------------------------------------
38----------------------------------------------------------------
39
39
40+data Leftover = LZero
41+ | LOne B.BufferWriter
42+ | LTwo BS.ByteString B.BufferWriter
43+
44+----------------------------------------------------------------
45+
40unlessClosed :: Context -> Connection -> Stream -> IO () -> IO ()
46unlessClosed :: Context -> Connection -> Stream -> IO () -> IO ()
41unlessClosed ctx
47unlessClosed ctx
42 Connection{connSendAll}
48 Connection{connSendAll}
warp/Network/Wai/Handler/Warp/HTTP2/Types.hs−5
@@ -13,7 +13,6 @@ import Control.Monad (void)
13import Control.Reaper
13import Control.Reaper
14import Data.ByteString (ByteString)
14import Data.ByteString (ByteString)
15import qualified Data.ByteString as BS
15import qualified Data.ByteString as BS
16−import qualified Data.ByteString.Builder.Extra as B
17import Data.IntMap.Strict (IntMap, IntMap)
16import Data.IntMap.Strict (IntMap, IntMap)
18import qualified Data.IntMap.Strict as M
17import qualified Data.IntMap.Strict as M
19import qualified Network.HTTP.Types as H
18import qualified Network.HTTP.Types as H
@@ -78,10 +77,6 @@ data Sync = SyncNone
78data Aux = Oneshot Bool
77data Aux = Oneshot Bool
79 | Persist (TBQueue Sequence) (TVar Sync)
78 | Persist (TBQueue Sequence) (TVar Sync)
80
79
81−data Leftover = LZero
82− | LOne B.BufferWriter
83− | LTwo ByteString B.BufferWriter
84−
85----------------------------------------------------------------
80----------------------------------------------------------------
86
81
87-- | The context for HTTP/2 connection.
82-- | The context for HTTP/2 connection.