From f4e55b8463f86554240e1cba908ca0a8cb0c38c4 Mon Sep 17 00:00:00 2001
From: Tuncer Ayaz <tuncer.ayaz@gmail.com>
Date: Wed, 26 Sep 2012 22:17:44 +0200
Subject: [PATCH] Fix fprof use (-p/--profile)

---
 src/rebar.erl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/rebar.erl b/src/rebar.erl
index 5d9475d..cd0bed5 100644
--- a/src/rebar.erl
+++ b/src/rebar.erl
@@ -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)