-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/
-- | HTTP/2.0 library including frames and HPACK
--
-- HTTP/2.0 library including frames and HPACK.
@package http2
@version 1.4.0
-- | This is partial implementation of the priority of HTTP/2.
--
-- This implementation does support structured priority queue but not
-- support re-structuring. This means that it is assumed that an entry
-- created by a Priority frame is never closed. The entry behaves an
-- intermediate node, not a leaf.
--
-- This queue is fair for weight. Consider two weights: 201 and 101.
-- Repeating enqueue/dequeue probably produces 201, 201, 101, 201, 201,
-- 101, ...
--
-- Only one entry per stream should be enqueued.
module Network.HTTP2.Priority
-- | Internal representation of priority in priority queues. The precedence
-- of a dequeued entry should be specified to enqueue when the
-- entry is enqueued again.
data Precedence
-- | Default precedence.
defaultPrecedence :: Precedence
-- | Converting Priority to Precedence. When an entry is
-- enqueued at the first time, this function should be used.
toPrecedence :: Priority -> Precedence
-- | Abstract data type for priority trees.
data PriorityTree a
-- | Creating a new priority tree.
newPriorityTree :: IO (PriorityTree a)
-- | Bringing up the structure of the priority tree. This must be used for
-- Priority frame.
prepare :: PriorityTree a -> StreamId -> Priority -> IO ()
-- | Enqueuing an entry to the priority tree. This must be used for Header
-- frame.
enqueue :: PriorityTree a -> StreamId -> Precedence -> a -> IO ()
-- | Dequeuing an entry from the priority tree.
dequeue :: PriorityTree a -> IO (StreamId, Precedence, a)
-- | Dequeuing an entry from the priority tree.
dequeueSTM :: PriorityTree a -> STM (StreamId, Precedence, a)
-- | Checking if the priority tree is empty.
isEmpty :: PriorityTree a -> IO Bool
-- | Checking if the priority tree is empty.
isEmptySTM :: PriorityTree a -> STM Bool
-- | Deleting the entry corresponding to StreamId. delete and
-- enqueue are used to change the priority of a live stream.
delete :: PriorityTree a -> StreamId -> Precedence -> IO (Maybe a)
-- | Framing in HTTP/2(https://tools.ietf.org/html/rfc7540).
module Network.HTTP2
-- | The data type for HTTP/2 frames.
data Frame
Frame :: !FrameHeader -> !FramePayload -> Frame
[frameHeader] :: Frame -> !FrameHeader
[framePayload] :: Frame -> !FramePayload
-- | The data type for HTTP/2 frame headers.
data FrameHeader
FrameHeader :: !Int -> !FrameFlags -> !StreamId -> FrameHeader
[payloadLength] :: FrameHeader -> !Int
[flags] :: FrameHeader -> !FrameFlags
[streamId] :: FrameHeader -> !StreamId
-- | The data type for HTTP/2 frame payloads.
data FramePayload
DataFrame :: !ByteString -> FramePayload
HeadersFrame :: !(Maybe Priority) -> !HeaderBlockFragment -> FramePayload
PriorityFrame :: !Priority -> FramePayload
RSTStreamFrame :: !ErrorCodeId -> FramePayload
SettingsFrame :: !SettingsList -> FramePayload
PushPromiseFrame :: !StreamId -> !HeaderBlockFragment -> FramePayload
PingFrame :: !ByteString -> FramePayload
GoAwayFrame :: !StreamId -> !ErrorCodeId -> !ByteString -> FramePayload
WindowUpdateFrame :: !WindowSize -> FramePayload
ContinuationFrame :: !HeaderBlockFragment -> FramePayload
UnknownFrame :: !FrameType -> !ByteString -> FramePayload
-- | The type for fragments of a header encoded with HPACK.
type HeaderBlockFragment = ByteString
-- | The type for padding in payloads.
type Padding = ByteString
-- | Checking if padding is defined in this frame type.
--
--
-- >>> isPaddingDefined $ DataFrame ""
-- True
--
-- >>> isPaddingDefined $ PingFrame ""
-- False
--
isPaddingDefined :: FramePayload -> Bool
-- | Encoding an HTTP/2 frame to ByteString. This function is not
-- efficient enough for high performace program because of the
-- concatenation of ByteString.
--
--
-- >>> encodeFrame (encodeInfo id 1) (DataFrame "body")
-- "\NUL\NUL\EOT\NUL\NUL\NUL\NUL\NUL\SOHbody"
--
encodeFrame :: EncodeInfo -> FramePayload -> ByteString
-- | Encoding an HTTP/2 frame to [ByteString]. This is suitable for
-- sendMany.
encodeFrameChunks :: EncodeInfo -> FramePayload -> [ByteString]
-- | Encoding an HTTP/2 frame header. The frame header must be completed.
encodeFrameHeader :: FrameTypeId -> FrameHeader -> ByteString
-- | Writing an encoded HTTP/2 frame header to the buffer. The length of
-- the buffer must be larger than or equal to 9 bytes.
encodeFrameHeaderBuf :: FrameTypeId -> FrameHeader -> Ptr Word8 -> IO ()
-- | Encoding an HTTP/2 frame payload. This returns a complete frame header
-- and chunks of payload.
encodeFramePayload :: EncodeInfo -> FramePayload -> (FrameHeader, [ByteString])
-- | Auxiliary information for frame encoding.
data EncodeInfo
EncodeInfo :: !FrameFlags -> !StreamId -> !(Maybe Padding) -> EncodeInfo
-- | Flags to be set in a frame header
[encodeFlags] :: EncodeInfo -> !FrameFlags
-- | Stream id to be set in a frame header
[encodeStreamId] :: EncodeInfo -> !StreamId
-- | Padding if any. In the case where this value is set but the priority
-- flag is not set, this value gets preference over the priority flag.
-- So, if this value is set, the priority flag is also set.
[encodePadding] :: EncodeInfo -> !(Maybe Padding)
-- | A smart builder of EncodeInfo.
--
--
-- >>> encodeInfo setAck 0
-- EncodeInfo {encodeFlags = 1, encodeStreamId = 0, encodePadding = Nothing}
--
encodeInfo :: (FrameFlags -> FrameFlags) -> Int -> EncodeInfo
-- | Decoding an HTTP/2 frame to ByteString. The second argument
-- must be include the entire of frame. So, this function is not useful
-- for real applications but useful for testing.
decodeFrame :: Settings -> ByteString -> Either HTTP2Error Frame
-- | Decoding an HTTP/2 frame header. Must supply 9 bytes.
decodeFrameHeader :: ByteString -> (FrameTypeId, FrameHeader)
-- | Checking a frame header and reporting an error if any.
--
--
-- >>> checkFrameHeader defaultSettings (FrameData,(FrameHeader 100 0 0))
-- Left (ConnectionError ProtocolError "cannot used in control stream")
--
checkFrameHeader :: Settings -> (FrameTypeId, FrameHeader) -> Either HTTP2Error (FrameTypeId, FrameHeader)
-- | Decoding an HTTP/2 frame payload. This function is considered to
-- return a frame payload decoder according to a frame type.
decodeFramePayload :: FrameTypeId -> FramePayloadDecoder
-- | The type for frame payload decoder.
type FramePayloadDecoder = FrameHeader -> ByteString -> Either HTTP2Error FramePayload
-- | Frame payload decoder for DATA frame.
decodeDataFrame :: FramePayloadDecoder
-- | Frame payload decoder for HEADERS frame.
decodeHeadersFrame :: FramePayloadDecoder
-- | Frame payload decoder for PRIORITY frame.
decodePriorityFrame :: FramePayloadDecoder
-- | Frame payload decoder for RST_STREAM frame.
decoderstStreamFrame :: FramePayloadDecoder
-- | Frame payload decoder for SETTINGS frame.
decodeSettingsFrame :: FramePayloadDecoder
-- | Frame payload decoder for PUSH_PROMISE frame.
decodePushPromiseFrame :: FramePayloadDecoder
-- | Frame payload decoder for PING frame.
decodePingFrame :: FramePayloadDecoder
-- | Frame payload decoder for GOAWAY frame.
decodeGoAwayFrame :: FramePayloadDecoder
-- | Frame payload decoder for WINDOW_UPDATE frame.
decodeWindowUpdateFrame :: FramePayloadDecoder
-- | Frame payload decoder for CONTINUATION frame.
decodeContinuationFrame :: FramePayloadDecoder
-- | The type for frame type.
data FrameTypeId
FrameData :: FrameTypeId
FrameHeaders :: FrameTypeId
FramePriority :: FrameTypeId
FrameRSTStream :: FrameTypeId
FrameSettings :: FrameTypeId
FramePushPromise :: FrameTypeId
FramePing :: FrameTypeId
FrameGoAway :: FrameTypeId
FrameWindowUpdate :: FrameTypeId
FrameContinuation :: FrameTypeId
FrameUnknown :: FrameType -> FrameTypeId
-- | Getting FrameType from FramePayload.
--
--
-- >>> framePayloadToFrameTypeId (DataFrame "body")
-- FrameData
--
framePayloadToFrameTypeId :: FramePayload -> FrameTypeId
-- | The type for raw frame type.
type FrameType = Word8
-- | Converting FrameTypeId to FrameType.
--
--
-- >>> fromFrameTypeId FrameData
-- 0
--
-- >>> fromFrameTypeId FrameContinuation
-- 9
--
-- >>> fromFrameTypeId (FrameUnknown 10)
-- 10
--
fromFrameTypeId :: FrameTypeId -> FrameType
-- | Converting FrameType to FrameTypeId.
--
--
-- >>> toFrameTypeId 0
-- FrameData
--
-- >>> toFrameTypeId 9
-- FrameContinuation
--
-- >>> toFrameTypeId 10
-- FrameUnknown 10
--
toFrameTypeId :: FrameType -> FrameTypeId
-- | Type for stream priority
data Priority
Priority :: !Bool -> !StreamId -> !Weight -> Priority
[exclusive] :: Priority -> !Bool
[streamDependency] :: Priority -> !StreamId
[weight] :: Priority -> !Weight
-- | The type for weight in priority. Its values are from 1 to 256.
type Weight = Int
-- | Default priority which depends on stream 0.
--
--
-- >>> defaultPriority
-- Priority {exclusive = False, streamDependency = 0, weight = 16}
--
defaultPriority :: Priority
-- | Highest priority which depends on stream 0.
--
--
-- >>> highestPriority
-- Priority {exclusive = False, streamDependency = 0, weight = 256}
--
highestPriority :: Priority
-- | The type for stream identifier
type StreamId = Int
-- | Checking if the stream identifier for control.
--
--
-- >>> isControl 0
-- True
--
-- >>> isControl 1
-- False
--
isControl :: StreamId -> Bool
-- | Checking if the stream identifier for request.
--
--
-- >>> isRequest 0
-- False
--
-- >>> isRequest 1
-- True
--
isRequest :: StreamId -> Bool
-- | Checking if the stream identifier for response.
--
--
-- >>> isResponse 0
-- False
--
-- >>> isResponse 2
-- True
--
isResponse :: StreamId -> Bool
-- | Checking if the exclusive flag is set.
testExclusive :: StreamId -> Bool
-- | Setting the exclusive flag.
setExclusive :: StreamId -> StreamId
-- | Clearing the exclusive flag.
clearExclusive :: StreamId -> StreamId
-- | The type for flags.
type FrameFlags = Word8
-- | The initial value of flags. No flags are set.
--
--
-- >>> defaultFlags
-- 0
--
defaultFlags :: FrameFlags
-- | Checking if the END_STREAM flag is set. >>> testEndStream 0x1
-- True
testEndStream :: FrameFlags -> Bool
-- | Checking if the ACK flag is set. >>> testAck 0x1 True
testAck :: FrameFlags -> Bool
-- | Checking if the END_HEADERS flag is set.
--
--
-- >>> testEndHeader 0x4
-- True
--
testEndHeader :: FrameFlags -> Bool
-- | Checking if the PADDED flag is set.
--
--
-- >>> testPadded 0x8
-- True
--
testPadded :: FrameFlags -> Bool
-- | Checking if the PRIORITY flag is set.
--
--
-- >>> testPriority 0x20
-- True
--
testPriority :: FrameFlags -> Bool
-- | Setting the END_STREAM flag.
--
--
-- >>> setEndStream 0
-- 1
--
setEndStream :: FrameFlags -> FrameFlags
-- | Setting the ACK flag.
--
--
-- >>> setAck 0
-- 1
--
setAck :: FrameFlags -> FrameFlags
-- | Setting the END_HEADERS flag.
--
--
-- >>> setEndHeader 0
-- 4
--
setEndHeader :: FrameFlags -> FrameFlags
-- | Setting the PADDED flag.
--
--
-- >>> setPadded 0
-- 8
--
setPadded :: FrameFlags -> FrameFlags
-- | Setting the PRIORITY flag.
--
--
-- >>> setPriority 0
-- 32
--
setPriority :: FrameFlags -> FrameFlags
-- | Association list of SETTINGS.
type SettingsList = [(SettingsKeyId, SettingsValue)]
-- | The type for SETTINGS key.
data SettingsKeyId
SettingsHeaderTableSize :: SettingsKeyId
SettingsEnablePush :: SettingsKeyId
SettingsMaxConcurrentStreams :: SettingsKeyId
SettingsInitialWindowSize :: SettingsKeyId
SettingsMaxFrameSize :: SettingsKeyId
SettingsMaxHeaderBlockSize :: SettingsKeyId
-- | The type for raw SETTINGS value.
type SettingsValue = Int
-- | Converting SettingsKeyId to raw value.
--
--
-- >>> fromSettingsKeyId SettingsHeaderTableSize
-- 1
--
-- >>> fromSettingsKeyId SettingsMaxHeaderBlockSize
-- 6
--
fromSettingsKeyId :: SettingsKeyId -> Word16
-- | Converting raw value to SettingsKeyId.
--
--
-- >>> toSettingsKeyId 0
-- Nothing
--
-- >>> toSettingsKeyId 1
-- Just SettingsHeaderTableSize
--
-- >>> toSettingsKeyId 6
-- Just SettingsMaxHeaderBlockSize
--
-- >>> toSettingsKeyId 7
-- Nothing
--
toSettingsKeyId :: Word16 -> Maybe SettingsKeyId
-- | Checking SettingsList and reporting an error if any.
--
--
-- >>> checkSettingsList [(SettingsEnablePush,2)]
-- Just (ConnectionError ProtocolError "enable push must be 0 or 1")
--
checkSettingsList :: SettingsList -> Maybe HTTP2Error
-- | Cooked version of settings. This is suitable to be stored in a HTTP/2
-- context.
data Settings
Settings :: !Int -> !Bool -> !(Maybe Int) -> !WindowSize -> !Int -> !(Maybe Int) -> Settings
[headerTableSize] :: Settings -> !Int
[enablePush] :: Settings -> !Bool
[maxConcurrentStreams] :: Settings -> !(Maybe Int)
[initialWindowSize] :: Settings -> !WindowSize
[maxFrameSize] :: Settings -> !Int
[maxHeaderBlockSize] :: Settings -> !(Maybe Int)
-- | The default settings.
--
--
-- >>> defaultSettings
-- Settings {headerTableSize = 4096, enablePush = True, maxConcurrentStreams = Nothing, initialWindowSize = 65535, maxFrameSize = 16384, maxHeaderBlockSize = Nothing}
--
defaultSettings :: Settings
-- | Updating settings.
--
--
-- >>> updateSettings defaultSettings [(SettingsEnablePush,0),(SettingsMaxHeaderBlockSize,200)]
-- Settings {headerTableSize = 4096, enablePush = False, maxConcurrentStreams = Nothing, initialWindowSize = 65535, maxFrameSize = 16384, maxHeaderBlockSize = Just 200}
--
updateSettings :: Settings -> SettingsList -> Settings
-- | The type for window size.
type WindowSize = Int
-- | The default initial window size.
--
--
-- >>> defaultInitialWindowSize
-- 65535
--
defaultInitialWindowSize :: WindowSize
-- | The maximum window size.
--
--
-- >>> maxWindowSize
-- 2147483647
--
maxWindowSize :: WindowSize
-- | Checking if a window size exceeds the maximum window size.
--
--
-- >>> isWindowOverflow 10
-- False
--
-- >>> isWindowOverflow maxWindowSize
-- False
--
-- >>> isWindowOverflow (maxWindowSize + 1)
-- True
--
isWindowOverflow :: WindowSize -> Bool
-- | The type for raw error code.
type ErrorCode = Word32
-- | The type for error code. See
-- https://tools.ietf.org/html/rfc7540#section-7.
data ErrorCodeId
NoError :: ErrorCodeId
ProtocolError :: ErrorCodeId
InternalError :: ErrorCodeId
FlowControlError :: ErrorCodeId
SettingsTimeout :: ErrorCodeId
StreamClosed :: ErrorCodeId
FrameSizeError :: ErrorCodeId
RefusedStream :: ErrorCodeId
Cancel :: ErrorCodeId
CompressionError :: ErrorCodeId
ConnectError :: ErrorCodeId
EnhanceYourCalm :: ErrorCodeId
InadequateSecurity :: ErrorCodeId
HTTP11Required :: ErrorCodeId
UnknownErrorCode :: ErrorCode -> ErrorCodeId
-- | Converting ErrorCodeId to ErrorCode.
--
--
-- >>> fromErrorCodeId NoError
-- 0
--
-- >>> fromErrorCodeId InadequateSecurity
-- 12
--
fromErrorCodeId :: ErrorCodeId -> ErrorCode
-- | Converting ErrorCode to ErrorCodeId.
--
--
-- >>> toErrorCodeId 0
-- NoError
--
-- >>> toErrorCodeId 0xc
-- InadequateSecurity
--
-- >>> toErrorCodeId 0xe
-- UnknownErrorCode 14
--
toErrorCodeId :: ErrorCode -> ErrorCodeId
-- | The connection error or the stream error.
data HTTP2Error
ConnectionError :: !ErrorCodeId -> !ByteString -> HTTP2Error
StreamError :: !ErrorCodeId -> !StreamId -> HTTP2Error
-- | Obtaining ErrorCodeId from HTTP2Error.
errorCodeId :: HTTP2Error -> ErrorCodeId
-- | The preface of HTTP/2.
--
--
-- >>> connectionPreface
-- "PRI * HTTP/2.0\r\n\r\nSM\r\n\r\n"
--
connectionPreface :: ByteString
-- | Length of the preface.
--
--
-- >>> connectionPrefaceLength
-- 24
--
connectionPrefaceLength :: Int
-- | The length of HTTP/2 frame header.
--
--
-- >>> frameHeaderLength
-- 9
--
frameHeaderLength :: Int
-- | The maximum length of HTTP/2 payload.
--
--
-- >>> maxPayloadLength
-- 16384
--
maxPayloadLength :: Int
-- | Default concurrency.
--
--
-- >>> recommendedConcurrency
-- 100
--
recommendedConcurrency :: Int
-- | HPACK(https://tools.ietf.org/html/rfc7541) encoding and
-- decoding a header list.
module Network.HPACK
-- | HPACK encoding from HeaderList to ByteString.
type HPACKEncoding = DynamicTable -> HeaderList -> IO (DynamicTable, ByteString)
-- | HPACK decoding from ByteString to HeaderList.
type HPACKDecoding = DynamicTable -> ByteString -> IO (DynamicTable, HeaderList)
-- | Converting HeaderList for HTTP header to the low level format.
encodeHeader :: EncodeStrategy -> HPACKEncoding
-- | Converting the low level format for HTTP header to HeaderList.
-- DecodeError would be thrown.
decodeHeader :: HPACKDecoding
-- | HPACK encoding from HeaderList to Builder.
type HPACKEncodingBuilder = DynamicTable -> HeaderList -> IO (DynamicTable, Builder)
-- | Converting HeaderList for HTTP header to bytestring builder.
encodeHeaderBuilder :: EncodeStrategy -> HPACKEncodingBuilder
-- | Type for dynamic table.
data DynamicTable
-- | Default dynamic table size. The value is 4,096 bytes: an array has 128
-- entries.
--
--
-- >>> defaultDynamicTableSize
-- 4096
--
defaultDynamicTableSize :: Int
-- | Creating DynamicTable.
newDynamicTableForEncoding :: Size -> IO DynamicTable
-- | Creating DynamicTable.
newDynamicTableForDecoding :: Size -> IO DynamicTable
-- | When SETTINGS_HEADER_TABLE_SIZE is received from a peer, its value
-- should be set by this function.
setLimitForEncoding :: Size -> DynamicTable -> IO ()
-- | Compression algorithms for HPACK encoding.
data CompressionAlgo
-- | No compression
Naive :: CompressionAlgo
-- | Using the static table only
Static :: CompressionAlgo
-- | Using indices only
Linear :: CompressionAlgo
-- | Strategy for HPACK encoding.
data EncodeStrategy
EncodeStrategy :: !CompressionAlgo -> !Bool -> EncodeStrategy
-- | Which compression algorithm is used.
[compressionAlgo] :: EncodeStrategy -> !CompressionAlgo
-- | Whether or not to use Huffman encoding for strings.
[useHuffman] :: EncodeStrategy -> !Bool
-- | Default EncodeStrategy.
--
--
-- >>> defaultEncodeStrategy
-- EncodeStrategy {compressionAlgo = Linear, useHuffman = True}
--
defaultEncodeStrategy :: EncodeStrategy
-- | Errors for decoder.
data DecodeError
-- | Index is out of range
IndexOverrun :: Index -> DecodeError
-- | Eos appears in the middle of huffman string
EosInTheMiddle :: DecodeError
-- | Non-eos appears in the end of huffman string
IllegalEos :: DecodeError
-- | Eos of huffman string is more than 7 bits
TooLongEos :: DecodeError
-- | Encoded string has no length
EmptyEncodedString :: DecodeError
-- | Header block is empty
EmptyBlock :: DecodeError
-- | A peer tried to change the dynamic table size over the limit
TooLargeTableSize :: DecodeError
-- | Table size update at the non-beginning
IllegalTableSizeUpdate :: DecodeError
-- | Header list.
type HeaderList = [Header]
-- | Header.
type Header = (HeaderName, HeaderValue)
-- | Header name.
type HeaderName = ByteString
-- | Header value.
type HeaderValue = ByteString
-- | Size in bytes.
type Size = Int
-- | Index for table.
type Index = Int