log host and port on tcp connect error

twonds · Jan 23, 2014 · 800844a · 800844a
1 parent 7cfebfc
commit 800844a
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/merle_connect.erl b/src/merle_connect.erl
@@ -266,7 +266,12 @@ terminate(_Reason, #state{free_connections=Free, busy_connections=Busy}) ->
     end.
 
 spawn_client(#state{host=Host, port=Port, tcp_options=TCPOpts}) ->
-    gen_tcp:connect(Host, Port, TCPOpts).
+    case gen_tcp:connect(Host, Port, TCPOpts) of
+        {error, Reason} ->
+            error_log:error_msg("CONNECTION Failed ~p~n", [{Host, Port, TCPOpts, Reason}]),
+            {error, Reason};
+        Res -> Res
+    end.
 
 
 %% @private