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


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