Current section

Files

Jump to
gzlib src gzlib_erl.erl
Raw

src/gzlib_erl.erl

-module(gzlib_erl).
-export([compress/2]).
compress(Data, Level) ->
Z = zlib:open(),
ok = zlib:deflateInit(Z, Level),
Compressed = zlib:deflate(Z, Data),
Last = zlib:deflate(Z, [], finish),
ok = zlib:deflateEnd(Z),
zlib:close(Z),
list_to_binary([Compressed|Last]).