Separate the Network.DNS.RBL.Weight module and fix the doctests.

[dead/harbl.git] / harbl / src / Network / DNS / RBL / Domain / Domain.hs

diff --git a/harbl/src/Network/DNS/RBL/Domain/Domain.hs b/harbl/src/Network/DNS/RBL/Domain/Domain.hs
index 1049e887739c15dcd8481193e3417f2cdf2dd0a5..3ead2de7ce806523ec5d53b77b705fa9cc9c6c6b 100644 (file)
--- a/harbl/src/Network/DNS/RBL/Domain/Domain.hs
+++ b/harbl/src/Network/DNS/RBL/Domain/Domain.hs
@@ -48,8 +48,8 @@ import Network.DNS.RBL.Reversible ( Reversible(..) )
 --   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 =
@@ -66,8 +66,8 @@ 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