6 import qualified Data.ByteString.Char8 as BS (
11 import Data.Char (toLower)
12 import Network.DNS.Types (Domain)
14 -- | Normalize the given name by lowercasing and appending a trailing
15 -- dot (the root) if necessary.
16 normalize :: Domain -> Domain
17 normalize = normalize_case . normalize_root
20 normalize_root :: Domain -> Domain
22 | BS.last d == '.' = d
23 | otherwise = d `BS.append` trailing_dot
25 trailing_dot = BS.pack "."
28 normalize_case :: Domain -> Domain
29 normalize_case = BS.map toLower