From 83418c319568199ac800440bb25d31b4e92cc769 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pawel@process-one.net>
Date: Mon, 16 Jan 2023 11:01:04 +0100
Subject: [PATCH] Fix warning in mqtt_bridge

---
 src/mod_mqtt_bridge_session.erl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/mod_mqtt_bridge_session.erl b/src/mod_mqtt_bridge_session.erl
index b38a9b797..8b41a8861 100644
--- a/src/mod_mqtt_bridge_session.erl
+++ b/src/mod_mqtt_bridge_session.erl
@@ -200,17 +200,19 @@ handle_info({Tag, TCPSock, TCPData},
     Res2 =
     lists:foldl(
 	fun(_, {stop, _, _} = Res) -> Res;
-	   ({_Op, Data}, {Tag, Res, S}) ->
+	   ({_Op, Data}, {Tag2, Res, S}) ->
 	       case handle_info({tcp_decoded, TCPSock, Data}, S) of
 		   {stop, _, _} = Stop ->
 		       Stop;
 		   {_, NewState} ->
-		       {Tag, Res, NewState}
+		       {Tag2, Res, NewState}
 	       end
 	end, Acc0, Packets),
     case Res2 of
-	{noreply, _, State} ->
-	    {noreply, State};
+	{noreply, _, State2} ->
+	    {noreply, State2};
+	{stop_after, Res3, State2} ->
+	    {stop, Res3, State2};
 	_ ->
 	    Res2
     end;