uriP :: CharParser st QName
uriP =
  skips $ try $ checkWithUsing showQN uriQ $ \ q ->
    if null $ namePrefix q then notElem (localPart q) criticalKeywords else True
uriP :: CharParser st QName
uriP =
  skips $ try $ checkWithUsing showQN uriQ $ \ q ->
    if null $ namePrefix q then notElem (localPart q) criticalKeywords else True
uriP =
  skips $ try $ checkWithUsing showQN uriQ $ \ q ->
    if null $ namePrefix q then notElem (localPart q) criticalKeywords else True