From cb257fc07e9200721e304a14f5b91c79b4137ff9 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Thu, 27 Feb 2020 17:30:42 +0100
Subject: [PATCH] Rename function for clarity : actually it's doing just what w
 StreamContent does, but without checking the headers to re-zlib-encode the
 stream content

---
 examples/getObj.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/getObj.hs b/examples/getObj.hs
index 1e63ea7..e44321b 100644
--- a/examples/getObj.hs
+++ b/examples/getObj.hs
@@ -21,9 +21,9 @@ import Text.Read (readMaybe)
 
 decodedStream :: Object -> Object
 decodedStream object =
-  maybe object replaceContent $ r StreamContent object
+  maybe object forceClear $ r StreamContent object
   where
-    replaceContent streamContent = object {streamContent}
+    forceClear streamContent = object {streamContent}
 
 display :: Output a => ReaderT Layer Error a -> Document -> Either String ByteString
 display getter (Document {eolStyle, layers}) =