From a7f136e81aecee2c7fd2a3b805c2f0908ed67705 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sun, 17 Jan 2021 20:03:07 +0000
Subject: [PATCH] correct variable name

---
 src/Simplex/Messaging/Agent/Store/SQLite.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Messaging/Agent/Store/SQLite.hs b/src/Simplex/Messaging/Agent/Store/SQLite.hs
index d6b537cd2..0e89ad254 100644
--- a/src/Simplex/Messaging/Agent/Store/SQLite.hs
+++ b/src/Simplex/Messaging/Agent/Store/SQLite.hs
@@ -30,6 +30,7 @@ import Database.SQLite.Simple.Internal (Field (..))
 import Database.SQLite.Simple.Ok
 import Database.SQLite.Simple.ToField
 import Multiline (s)
+import Network.Socket
 import Simplex.Messaging.Agent.Store
 import Simplex.Messaging.Agent.Store.SQLite.Schema
 import Simplex.Messaging.Agent.Store.Types
@@ -39,7 +40,6 @@ import Simplex.Messaging.Util
 import Text.Read
 import qualified UnliftIO.Exception as E
 import UnliftIO.STM
-import Network.Socket
 
 addRcvQueueQuery :: Query
 addRcvQueueQuery =
@@ -326,7 +326,7 @@ getConnAliasByRcvQueue SQLiteStore {conn} rcvId = do
         |]
         [":rcvId" := rcvId]
   case r of
-    [queueIds] -> return queueIds
+    [connAlias] -> return connAlias
     _ -> throwError SEInternal
 
 deleteRcvQueue :: MonadUnliftIO m => SQLiteStore -> QueueRowId -> m ()