1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
{-# OPTIONS_HADDOCK hide #-}
-- | Internal DNS message component encoders for the test-suite.
module Network.DNS.Encode.Internal (
encodeDNSHeader
, encodeDNSFlags
, encodeDomain
, encodeMailbox
, encodeResourceRecord
) where
import Network.DNS.Encode.Builders
import Network.DNS.Imports
import Network.DNS.StateBinary
import Network.DNS.Types.Internal
-- | Encode DNS flags.
encodeDNSFlags :: DNSFlags -> ByteString
encodeDNSFlags = runSPut . putDNSFlags
-- | Encode DNS header.
encodeDNSHeader :: DNSHeader -> ByteString
encodeDNSHeader = runSPut . putHeader
-- | Encode a domain.
encodeDomain :: Domain -> ByteString
encodeDomain = runSPut . putDomain
-- | Encode a mailbox name. The first label is separated from the remaining
-- labels by an @'\@'@ rather than a @.@. This is used for the contact
-- address in the @SOA@ and @RP@ records.
--
encodeMailbox :: Mailbox -> ByteString
encodeMailbox = runSPut . putMailbox
-- | Encode a ResourceRecord.
encodeResourceRecord :: ResourceRecord -> ByteString
encodeResourceRecord rr = runSPut $ putResourceRecord rr
|
