-- DomainRoot
--
-- >>> import Text.Parsec ( parse )
--- >>> let s = parse subdomain "" "x"
--- >>> DomainName s
+-- >>> let (Right r) = parse subdomain "" "x"
+-- >>> DomainName r
-- DomainName (SubdomainSingleLabel (Label (LetDigLetter (Letter 'x')) Nothing))
--
data Domain =
-- ""
--
-- >>> import Text.Parsec ( parse )
--- >>> let s = parse subdomain "" "x"
--- >>> pretty_print $ DomainName s
+-- >>> let (Right r) = parse subdomain "" "x"
+-- >>> pretty_print $ DomainName r
-- x
--
instance Pretty Domain where