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

@@ -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}) =