-- TODO add HTML block elements to annihilate, e.g. <pre>
-- FIXME remove unary tags like <img>
stripHTML = liftM2 (<>) (stripTags '<' '>' p) A.takeText
  where
    p = flip elem ["code"]
stripHTML = liftM2 (<>) (stripTags '<' '>' p) A.takeText
  where
    p = flip elem ["code"]
stripHTML = liftM2 (<>) (stripTags '<' '>' p) A.takeText
  where
    p = flip elem ["code"]