anchor.diff:                               KF = case lists:keyfind(N, 1, NodeResp) of
                                         %% if reply is not list it is error report
                                         {_, Reply} when not is_list(Reply) ->
  -                                          ?log_info("Got error reply from ~p:~n~p", [N, Reply]),
  +                                          ale:info(
  +                                            ?MENELAUS_LOGGER,
  +                                            "Got error reply from ~p:~n~p", [N, Reply]),
                                             false;
                                         X -> X
                                     end,
  
positive.code:                                        end,
                                         Parent ! {Ref, done};
                                     {tcp_closed, Socket} ->
                                         ?log_info("I have nobody to live for. Killing myself..."),
                                         exit(Parent, kill)
                                 end
                         end),
  
negative.code:     Res =
          try streaming_inner(F, HTTPRes, LastRes)
          catch exit:normal ->
                  ale:info(?MENELAUS_LOGGER, "closing streaming socket~n"),
                  HTTPRes:write_chunk(""),
                  exit(normal)
          end,
      receive
          {notify_watcher, _} -> ok;
          _ ->
              ale:info(?MENELAUS_LOGGER,
                       "menelaus_web streaming socket closed by client"),
              exit(normal)
      after 25000 ->
          ok
  