--
-- >>> let (Right r) = parse hyphen "" "-"
-- >>> LetDigHypHyphen r
--- LetDigHypHyphen (Hyphen '-')
+-- LetDigHypHyphen Hyphen
--
data LetDigHyp =
LetDigHypLetDig LetDig |
-- LetDigHypLetDig (LetDigDigit (Digit '7'))
--
-- >>> parseTest let_dig_hyp "-"
--- LetDigHypHyphen (Hyphen '-')
+-- LetDigHypHyphen Hyphen
--
-- However, an underscore (for example) is not:
--