@@ -671,16 +671,31 @@ parserParseOne' parser = allocaBytes eventSize $ \er -> do
671 return $ Left $ YamlParseException problem context problemMark
671 return $ Left $ YamlParseException problem context problemMark
672 else Right <$> getEvent er
672 else Right <$> getEvent er
674−
674+-- | Whether a tag should be rendered explicitly in the output or left
675data TagRender = Explicit | Implicit
678data TagRender = Explicit | Implicit
676 deriving (Enum)
679 deriving (Enum)
681+-- | A value for 'formatOptionsRenderCollectionTags' that renders no
678renderNone :: Event -> TagRender
685renderNone :: Event -> TagRender
679renderNone _ = Implicit
686renderNone _ = Implicit
688+-- | A value for 'formatOptionsRenderCollectionTags' that renders all
681renderAll :: Event -> TagRender
692renderAll :: Event -> TagRender
682renderAll _ = Explicit
693renderAll _ = Explicit
695+-- | A value for 'formatOptionsRenderCollectionTags' that renders tags
696+-- which are instances of 'UriTag'
684renderUriTags :: Event -> TagRender
699renderUriTags :: Event -> TagRender
685renderUriTags (EventScalar _ UriTag{} _ _) = Explicit
700renderUriTags (EventScalar _ UriTag{} _ _) = Explicit
686renderUriTags (EventSequenceStart UriTag{} _ _) = Explicit
701renderUriTags (EventSequenceStart UriTag{} _ _) = Explicit