X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fharbl.git;a=blobdiff_plain;f=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FDomain%2FLetDigHyp.hs;fp=harbl%2Fsrc%2FNetwork%2FDNS%2FRBL%2FDomain%2FLetDigHyp.hs;h=270951a46547721c55c6b9370de3bcf62fc01a04;hp=06e420a3a0c94d615f7926084029967b0f5d6858;hb=014dacb6ef0e93d0e67ebb154c397e999431469f;hpb=4dd314687c806419fac1fc88c96df6541e1dff4b

diff --git a/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs b/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs
index 06e420a..270951a 100644
--- a/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs
+++ b/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs
@@ -42,7 +42,7 @@ import Network.DNS.RBL.Pretty ( Pretty(..) )
 --
 --   >>> let (Right r) = parse hyphen "" "-"
 --   >>> LetDigHypHyphen r
---   LetDigHypHyphen (Hyphen '-')
+--   LetDigHypHyphen Hyphen
 --
 data LetDigHyp =
   LetDigHypLetDig LetDig |
@@ -90,7 +90,7 @@ instance Pretty LetDigHyp where
 --   LetDigHypLetDig (LetDigDigit (Digit '7'))
 --
 --   >>> parseTest let_dig_hyp "-"
---   LetDigHypHyphen (Hyphen '-')
+--   LetDigHypHyphen Hyphen
 --
 --   However, an underscore (for example) is not:
 --