Remove underlying Char from Hyphen type.

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

diff --git a/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs b/harbl/src/Network/DNS/RBL/Domain/LetDigHyp.hs
index 06e420a3a0c94d615f7926084029967b0f5d6858..270951a46547721c55c6b9370de3bcf62fc01a04 100644 (file)
--- 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:
 --