Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Revert to original names

  • Loading branch information...
commit 9db9966afcbe211b03e75757d85ce37b108ab882 1 parent ca5e1b4
Paulo Tanimoto tanimoto authored

Showing 1 changed file with 9 additions and 9 deletions. Show diff stats Hide diff stats

  1. +9 9 test.hs
18 test.hs
@@ -102,7 +102,7 @@ compress
102 102 -> m ByteString
103 103 compress win xs =
104 104 E.run_ $ E.enumList 1 xs
105   - $$ joinI $ Z.compressWith 7 win
  105 + $$ joinI $ Z.compress 7 win
106 106 $$ consume
107 107
108 108 -- | Decompress a list of ByteStrings
@@ -113,7 +113,7 @@ decompress
113 113 -> m ByteString
114 114 decompress win xs =
115 115 E.run_ $ E.enumList 1 xs
116   - $$ joinI $ Z.decompressWith win
  116 + $$ joinI $ Z.decompress win
117 117 $$ consume
118 118
119 119 -- | Compress and decompress without doing anything else.
@@ -124,8 +124,8 @@ compressDecompress
124 124 -> m ByteString
125 125 compressDecompress win xs =
126 126 E.run_ $ E.enumList 1 xs
127   - $$ joinI $ Z.compressWith 7 win
128   - $$ joinI $ Z.decompressWith win
  127 + $$ joinI $ Z.compress 7 win
  128 + $$ joinI $ Z.decompress win
129 129 $$ consume
130 130
131 131 -- | Compress and decompress a ByteString with given WindowBits,
@@ -138,9 +138,9 @@ compressDecompressWith
138 138 -> m ByteString
139 139 compressDecompressWith enum win xs =
140 140 E.run_ $ E.enumList 1 xs
141   - $$ joinI $ Z.compressWith 7 win
  141 + $$ joinI $ Z.compress 7 win
142 142 $$ joinI $ enum
143   - $$ joinI $ Z.decompressWith win
  143 + $$ joinI $ Z.decompress win
144 144 $$ consume
145 145
146 146 -- | Compress a ByteString 'n' times and then decompress it 'n' times
@@ -154,7 +154,7 @@ compressDecompressMany win n xs =
154 154 E.run_ $ E.enumList 1 xs
155 155 $$ concatWith consume es
156 156 where
157   - es = replicate m (Z.compressWith 7 win) ++ replicate m (Z.decompressWith win)
  157 + es = replicate m (Z.compress 7 win) ++ replicate m (Z.decompress win)
158 158 m = 1 + (abs n `rem` 10) -- restrict n to [1, 10]
159 159
160 160 -- | Compress a [ByteString] to a file with an Enumeratee
@@ -166,7 +166,7 @@ compressFileWith enum win file xs = bracket
166 166 (hClose)
167 167 $ \ h -> do
168 168 run_ $ E.enumList 1 xs
169   - $$ joinI $ Z.compressWith 7 win
  169 + $$ joinI $ Z.compress 7 win
170 170 $$ joinI $ enum
171 171 $$ EB.iterHandle h
172 172
@@ -176,7 +176,7 @@ decompressFileWith
176 176 -> WindowBits -> FilePath -> IO ByteString
177 177 decompressFileWith enum win file =
178 178 run_ $ EB.enumFile file
179   - $$ joinI $ Z.decompressWith win
  179 + $$ joinI $ Z.decompress win
180 180 $$ joinI $ enum
181 181 $$ consume
182 182

0 comments on commit 9db9966

Please sign in to comment.
Something went wrong with that request. Please try again.