fullIri :: CharParser st QName
fullIri = do
    char '<'
    QN pre r _ _ p <- abbrIri
    char '>'
    return $ QN pre r Full (if null pre then r else pre ++ ":" ++ r) p
fullIri :: CharParser st QName
fullIri = do
    char '<'
    QN pre r _ _ p <- abbrIri
    char '>'
    return $ QN pre r Full (if null pre then r else pre ++ ":" ++ r) p
fullIri = do
    char '<'
    QN pre r _ _ p <- abbrIri
    char '>'
    return $ QN pre r Full (if null pre then r else pre ++ ":" ++ r) p