From 8376693a3f7f58e2623b205445aa603a59aab5e3 Mon Sep 17 00:00:00 2001
From: Tuncer Ayaz <tuncer.ayaz@gmail.com>
Date: Thu, 25 Aug 2011 11:41:22 +0200
Subject: [PATCH] Fix Dialyzer warnings

---
 src/rebar_eunit.erl | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/rebar_eunit.erl b/src/rebar_eunit.erl
index 040e739..3bf3796 100644
--- a/src/rebar_eunit.erl
+++ b/src/rebar_eunit.erl
@@ -471,25 +471,25 @@ reset_after_eunit({OldProcesses, WasAlive, OldAppEnvs, _OldACs}) ->
     if not WasAlive andalso IsAlive ->
             ?DEBUG("Stopping net kernel....\n", []),
             erl_epmd:stop(),
-            net_kernel:stop(),
+            _ = net_kernel:stop(),
             pause_until_net_kernel_stopped();
        true ->
             ok
     end,
 
     Processes = erlang:processes(),
-    kill_extras(Processes -- OldProcesses),
+    _ = kill_extras(Processes -- OldProcesses),
 
     OldApps = [App || {App, _} <- OldAppEnvs],
     Apps = get_app_names(),
-    [begin
-         case lists:member(App, OldApps) of
-             true  -> ok;
-             false -> application:stop(App)
-         end,
-         application:unset_env(App, K)
-     end || App <- Apps, App /= rebar,
-            {K, _V} <- application:get_all_env(App)],
+    _ = [begin
+             _ = case lists:member(App, OldApps) of
+                     true  -> ok;
+                     false -> application:stop(App)
+                 end,
+             ok = application:unset_env(App, K)
+         end || App <- Apps, App /= rebar,
+                {K, _V} <- application:get_all_env(App)],
 
     reconstruct_app_env_vars(Apps),
     ok.
@@ -538,7 +538,7 @@ kill_extras(Pids) ->
             ?DEBUG("No processes to kill\n", []),
             [];
         Else ->
-            [wait_until_dead(Pid) || Pid <- Else],
+            lists:foreach(fun(Pid) -> wait_until_dead(Pid) end, Else),
             Else
     end.
 
@@ -556,7 +556,7 @@ reconstruct_app_env_vars([App|Apps]) ->
               end,
     AllVars = CmdVars ++ AppVars,
     ?DEBUG("Reconstruct ~p ~p\n", [App, AllVars]),
-    [application:set_env(App, K, V) || {K, V} <- AllVars],
+    lists:foreach(fun({K, V}) -> application:set_env(App, K, V) end, AllVars),
     reconstruct_app_env_vars(Apps);
 reconstruct_app_env_vars([]) ->
     ok.