dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-04-27 17:15:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

correct variable name

Browse Source
This commit is contained in:
Evgeny Poberezkin
2021-01-17 20:03:07 +00:00
parent 826a9acb9d
commit a7f136e81a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Agent/Store/SQLite.hs
+2 -2
View File
@@ -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 ()