@@ -671,16 +671,31 @@ parserParseOne' parser = allocaBytes eventSize $ \er -> do
671671 return $ Left $ YamlParseException problem context problemMark
672672 else Right <$> getEvent er
673673
674−
674+-- | Whether a tag should be rendered explicitly in the output or left
675+-- implicit.
676+--
677+-- @since 0.11.1.0
675678data TagRender = Explicit | Implicit
676679 deriving (Enum)
677680
681+-- | A value for 'formatOptionsRenderCollectionTags' that renders no
682+-- tags.
683+--
684+-- @since 0.11.1.0
678685renderNone :: Event -> TagRender
679686renderNone _ = Implicit
680687
688+-- | A value for 'formatOptionsRenderCollectionTags' that renders all
689+-- tags.
690+--
691+-- @since 0.11.1.0
681692renderAll :: Event -> TagRender
682693renderAll _ = Explicit
683694
695+-- | A value for 'formatOptionsRenderCollectionTags' that renders tags
696+-- which are instances of 'UriTag'
697+--
698+-- @since 0.11.1.0
684699renderUriTags :: Event -> TagRender
685700renderUriTags (EventScalar _ UriTag{} _ _) = Explicit
686701renderUriTags (EventSequenceStart UriTag{} _ _) = Explicit