From 4359b196acef612220f70fe2db91289fc79a01c6 Mon Sep 17 00:00:00 2001
From: koral <mail@cmoreau.info>
Date: Thu, 31 Oct 2024 13:33:23 +0100
Subject: [PATCH] chore: Deprecate `rsPretty` and `prettify`

---
 xml-conduit/src/Text/XML/Stream/Render.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/xml-conduit/src/Text/XML/Stream/Render.hs b/xml-conduit/src/Text/XML/Stream/Render.hs
index 4d699c8..9f09320 100644
--- a/xml-conduit/src/Text/XML/Stream/Render.hs
+++ b/xml-conduit/src/Text/XML/Stream/Render.hs
@@ -62,6 +62,7 @@ renderBytes rs = renderBuilder rs .| builderToByteString
 renderText :: (PrimMonad m, MonadThrow m) => RenderSettings -> ConduitT Event Text m ()
 renderText rs = renderBytes rs .| decodeUtf8C
 
+{-# DEPRECATED rsPretty "Will be removed in future versions of `xml-conduit`. See <https://github.com/snoyberg/xml/issues/196>." #-}
 data RenderSettings = RenderSettings
     { rsPretty     :: Bool
     , rsNamespaces :: [(Text, Text)]
@@ -293,6 +294,7 @@ getPrefix ppref nsmap ns =
 
 -- | Convert a stream of 'Event's into a prettified one, adding extra
 -- whitespace. Note that this can change the meaning of your XML.
+{-# DEPRECATED prettify "Will be removed in future versions of `xml-conduit`. See <https://github.com/snoyberg/xml/issues/196>." #-}
 prettify :: Monad m => ConduitT (Flush Event) (Flush Event) m ()
 prettify = prettify' 0