{-# OPTIONS_HADDOCK hide #-}
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
encodeDNSFlags :: DNSFlags -> ByteString
encodeDNSFlags :: DNSFlags -> ByteString
encodeDNSFlags = SPut -> ByteString
runSPut (SPut -> ByteString)
-> (DNSFlags -> SPut) -> DNSFlags -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DNSFlags -> SPut
putDNSFlags
encodeDNSHeader :: DNSHeader -> ByteString
= SPut -> ByteString
runSPut (SPut -> ByteString)
-> (DNSHeader -> SPut) -> DNSHeader -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DNSHeader -> SPut
putHeader
encodeDomain :: Domain -> ByteString
encodeDomain :: ByteString -> ByteString
encodeDomain = SPut -> ByteString
runSPut (SPut -> ByteString)
-> (ByteString -> SPut) -> ByteString -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> SPut
putDomain
encodeMailbox :: Mailbox -> ByteString
encodeMailbox :: ByteString -> ByteString
encodeMailbox = SPut -> ByteString
runSPut (SPut -> ByteString)
-> (ByteString -> SPut) -> ByteString -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> SPut
putMailbox
encodeResourceRecord :: ResourceRecord -> ByteString
encodeResourceRecord :: ResourceRecord -> ByteString
encodeResourceRecord ResourceRecord
rr = SPut -> ByteString
runSPut (SPut -> ByteString) -> SPut -> ByteString
forall a b. (a -> b) -> a -> b
$ ResourceRecord -> SPut
putResourceRecord ResourceRecord
rr