Tissevert/Hufflepdf
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Tissevert 2020-02-27 17:30:42 +01:00
parent d90eaf6f1c
commit cb257fc07e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/getObj.hs
View file

@ -21,9 +21,9 @@ import Text.Read (readMaybe)
decodedStream :: Object -> Object decodedStream :: Object -> Object
decodedStream object = decodedStream object =
maybe object replaceContent $ r StreamContent object maybe object forceClear $ r StreamContent object
where where
replaceContent streamContent = object {streamContent} forceClear streamContent = object {streamContent}
display :: Output a => ReaderT Layer Error a -> Document -> Either String ByteString display :: Output a => ReaderT Layer Error a -> Document -> Either String ByteString
display getter (Document {eolStyle, layers}) = display getter (Document {eolStyle, layers}) =