1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
-- This is a breaker for cyclic imports:
--
-- - Network.TLS.Extension imports Network.TLS.Struct
-- - Network.TLS.Extension imports Network.TLS.Packet
--
-- - Network.TLS.Struct imports Network.TLS.Extension
--
-- - Network.TLS.Packet imports Network.TLS.Struct
--
-- Originally, ExtensionRaw was defined in Network.TLS.Struct and no
-- cyclic imports exist. It is moved into Network.TLS.Extension for
-- pretty-printing, so the cyclic imports happen.
module Network.TLS.Extension where
import Data.ByteString
import Data.Word
data ExtensionRaw = ExtensionRaw ExtensionID ByteString
instance Eq ExtensionRaw
instance Show ExtensionRaw
newtype ExtensionID = ExtensionID {fromExtensionID :: Word16}
|
