gsup_server: Improve log line when listening on gsup

Change-Id: I7dccc20b6c2c0f58cdd3a43469053624927c9acd
---
M src/gsup_server.erl
1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/src/gsup_server.erl b/src/gsup_server.erl
index fcb19a0..030a328 100644
--- a/src/gsup_server.erl
+++ b/src/gsup_server.erl
@@ -92,7 +92,7 @@
 	},
 	case ipa_proto:start_listen(Port, 1, Options) of
 		{ok, LSocket, Port} ->
-			lager:info("connected!~n", []),
+			lager:info("GSUP server listen socket ~p~n", [LSocket]),
 			{ok, #gsups_state{lsocket = LSocket, lport = Port, ccm_options = CcmOptions}};
 		{error, econnrefused} ->
 			timer:sleep(5000),
@@ -135,7 +135,6 @@
 	ipa_proto:set_ccm_options(Socket, S#gsups_state.ccm_options),
 	true = ipa_proto:register_stream(Socket, ?IPAC_PROTO_EXT_GSUP, {process_id, self()}),
 	ipa_proto:unblock(Socket),
-	lager:info("connected!~n", []),
 	{noreply, S#gsups_state{socket=Socket}};
 
 % send auth info / requesting authentication tuples

