-- |
-- A decoder of a single entity.
-- 
-- >>> mapM_ Data.Text.IO.putStrLn $ htmlEntity "&#169;"
-- ©
htmlEntity :: Text -> Either String Text
htmlEntity =
  P.parseOnly $
  P.htmlEntity <* P.endOfInput

htmlEntity :: Text -> Either String Text
htmlEntity =
  P.parseOnly $
  P.htmlEntity <* P.endOfInput
htmlEntity =
  P.parseOnly $
  P.htmlEntity <* P.endOfInput