-- | whitelist based safety check for tag name.
safeTagName :: Text -> Bool
safeTagName tagname = tagname `member` sanitaryTags
safeTagName :: Text -> Bool
safeTagName tagname = tagname `member` sanitaryTags
safeTagName tagname = tagname `member` sanitaryTags