X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FDomain%2FDomain.hs;fp=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FDomain%2FDomain.hs;h=3ead2de7ce806523ec5d53b77b705fa9cc9c6c6b;hp=1049e887739c15dcd8481193e3417f2cdf2dd0a5;hb=67a990c746599a0f64cffa8dd92157626fc4654e;hpb=d124148390284252851e2973e60d1fe85380330d

diff --git a/harbl/src/Network/DNS/RBL/Domain/Domain.hs b/harbl/src/Network/DNS/RBL/Domain/Domain.hs
index 1049e88..3ead2de 100644
--- 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