diff options
Diffstat (limited to 'Network/DNS/Internal.hs')
| -rw-r--r-- | Network/DNS/Internal.hs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/Network/DNS/Internal.hs b/Network/DNS/Internal.hs index ccc8cf7..28063fc 100644 --- a/Network/DNS/Internal.hs +++ b/Network/DNS/Internal.hs @@ -1,6 +1,7 @@ module Network.DNS.Internal where -import qualified Data.ByteString.Lazy.Char8 as L +import Data.ByteString (ByteString) +import qualified Data.ByteString.Char8 as BS import Data.Char import Data.IP import Data.Maybe @@ -10,7 +11,7 @@ import Data.Maybe {-| Type for domain. -} -type Domain = String +type Domain = ByteString ---------------------------------------------------------------- @@ -126,17 +127,17 @@ data ResourceRecord = ResourceRecord { -} data RDATA = RD_NS Domain | RD_CNAME Domain | RD_MX Int Domain | RD_SOA Domain Domain Int Int Int Int Int - | RD_A IPv4 | RD_AAAA IPv6 | RD_TXT L.ByteString + | RD_A IPv4 | RD_AAAA IPv6 | RD_TXT ByteString | RD_OTH [Int] deriving (Eq) instance Show RDATA where - show (RD_NS dom) = dom - show (RD_MX prf dom) = dom ++ " " ++ show prf - show (RD_CNAME dom) = dom + show (RD_NS dom) = BS.unpack dom + show (RD_MX prf dom) = BS.unpack dom ++ " " ++ show prf + show (RD_CNAME dom) = BS.unpack dom show (RD_A a) = show a show (RD_AAAA aaaa) = show aaaa - show (RD_TXT txt) = L.unpack txt - show (RD_SOA mn _ _ _ _ _ mi) = mn ++ " " ++ show mi + show (RD_TXT txt) = BS.unpack txt + show (RD_SOA mn _ _ _ _ _ mi) = BS.unpack mn ++ " " ++ show mi show (RD_OTH is) = show is ---------------------------------------------------------------- |