-- | Returns the case-normalized 'ByteString' of an 'Identifier'
-- which is suitable for comparison.
idDenote :: Identifier -> ByteString
idDenote (Identifier _ x) = x
idDenote :: Identifier -> ByteString
idDenote (Identifier _ x) = x
idDenote (Identifier _ x) = x