printExpandedIRI :: IRI -> Doc
printExpandedIRI iri = if iriType iri == NodeID then text $ showQU iri
    else text "<" <> text (expandedIRI iri) <> text ">"
printExpandedIRI :: IRI -> Doc
printExpandedIRI iri = if iriType iri == NodeID then text $ showQU iri
    else text "<" <> text (expandedIRI iri) <> text ">"
printExpandedIRI iri = if iriType iri == NodeID then text $ showQU iri
    else text "<" <> text (expandedIRI iri) <> text ">"