module Network.QPACK.Token (
    quicIx
  ) where

import Data.Array
import Data.Array.Base (unsafeAt)

hpack2QpackList :: [Int]
hpack2QpackList :: [Int]
hpack2QpackList = [Int
0,Int
15,Int
1,Int
16,Int
17,-Int
1,Int
19,Int
31,Int
20,Int
18,Int
22,Int
2,-Int
1,Int
38,Int
23,Int
3,Int
24,-Int
1,Int
4,-Int
1,-Int
1,Int
25,Int
5,Int
6,Int
7,-Int
1,-Int
1,-Int
1,-Int
1,-Int
1,Int
8,Int
9,Int
43,-Int
1,Int
10,Int
11,Int
12,-Int
1,-Int
1,-Int
1,Int
26,Int
13,-Int
1,-Int
1,Int
46,Int
14,Int
27,-Int
1,Int
49,Int
28,-Int
1,-Int
1,-Int
1,-Int
1,Int
32,Int
21,Int
33,Int
34,Int
35,Int
36,Int
37,Int
39,Int
40,Int
41,Int
42,Int
44,Int
45,Int
47,Int
48,Int
29,Int
50,Int
51,Int
30,-Int
1]

hpack2QpackTable :: Array Int Int
hpack2QpackTable :: Array Int Int
hpack2QpackTable = forall i e. Ix i => (i, i) -> [e] -> Array i e
listArray (Int
0,forall (t :: * -> *) a. Foldable t => t a -> Int
length [Int]
hpack2QpackList forall a. Num a => a -> a -> a
- Int
1) [Int]
hpack2QpackList

quicIx :: Int -> Int
quicIx :: Int -> Int
quicIx Int
ix = Array Int Int
hpack2QpackTable forall (a :: * -> * -> *) e i.
(IArray a e, Ix i) =>
a i e -> Int -> e
`unsafeAt` Int
ix