abbrIri :: CharParser st QName
abbrIri = do
  p <- getPos
  q <- abbrIriNoPos
  return q { iriPos = Range [p],
                iriType = if namePrefix q == "_" then NodeID else Abbreviated }
abbrIri :: CharParser st QName
abbrIri = do
  p <- getPos
  q <- abbrIriNoPos
  return q { iriPos = Range [p],
                iriType = if namePrefix q == "_" then NodeID else Abbreviated }
abbrIri = do
  p <- getPos
  q <- abbrIriNoPos
  return q { iriPos = Range [p],
                iriType = if namePrefix q == "_" then NodeID else Abbreviated }