xmlWrapper :: T.Text -> Parser a -> Parser a
xmlWrapper st p = do
    char '<'
    string st
    char '>'
    val <- p
    string "</"
    string st
    char '>'
    return val
xmlWrapper :: T.Text -> Parser a -> Parser a
xmlWrapper st p = do
    char '<'
    string st
    char '>'
    val <- p
    string "</"
    string st
    char '>'
    return val
xmlWrapper st p = do
    char '<'
    string st
    char '>'
    val <- p
    string "</"
    string st
    char '>'
    return val