{-# 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 = runSPut . putDNSFlags
encodeDNSHeader :: DNSHeader -> ByteString
encodeDNSHeader = runSPut . putHeader
encodeDomain :: Domain -> ByteString
encodeDomain = runSPut . putDomain
encodeMailbox :: Mailbox -> ByteString
encodeMailbox = runSPut . putMailbox
encodeResourceRecord :: ResourceRecord -> ByteString
encodeResourceRecord rr = runSPut $ putResourceRecord rr