Fix fprof use (-p/--profile)

This commit is contained in:
Tuncer Ayaz 2012-09-26 22:17:44 +02:00
parent 1b52a597c4
commit f4e55b8463

View file

@ -87,11 +87,10 @@ run(RawArgs) ->
true ->
io:format("Profiling!\n"),
try
fprof:apply(fun([C, A]) -> run_aux(C, A) end,
[BaseConfig1, Cmds])
fprof:apply(fun run_aux/2, [BaseConfig1, Cmds])
after
fprof:profile(),
fprof:analyse([{dest, "fprof.analysis"}])
ok = fprof:profile(),
ok = fprof:analyse([{dest, "fprof.analysis"}])
end;
false ->
run_aux(BaseConfig1, Cmds)