Compress erlcinfo file less agressively

Optimizing for best compression could be very slow for large
projects, so optimize rather for the speed.  erlcinfo file
isn't that huge anyway and moreover difference between levels
2 and 9 isn't that big in practice (although there's quite big
difference between level 2 and no compression at all).
This commit is contained in:
David Kubecka 2015-03-23 11:17:01 +01:00
parent 9e33daa6fa
commit a25932ba6a

View file

@ -485,7 +485,7 @@ store_erlcinfo(G, InclDirs) ->
Es = lists:map(fun(E) -> digraph:edge(G, E) end, digraph:edges(G)),
File = erlcinfo_file(),
ok = filelib:ensure_dir(File),
Data = term_to_binary(#erlcinfo{info={Vs, Es, InclDirs}}, [{compressed, 9}]),
Data = term_to_binary(#erlcinfo{info={Vs, Es, InclDirs}}, [{compressed, 2}]),
ok = file:write_file(File, Data).
%% NOTE: If, for example, one of the entries in Files refers to