From 4c0164c49effe8d1b3fd98aca184245a8b4cac93 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Sun, 3 Jul 2022 13:05:16 +0100
Subject: [PATCH] fix: support msgFlag NULL in sql (#458)

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

diff --git a/src/Simplex/Messaging/Agent/Store/SQLite.hs b/src/Simplex/Messaging/Agent/Store/SQLite.hs
index 82bacf5cc..06066629f 100644
--- a/src/Simplex/Messaging/Agent/Store/SQLite.hs
+++ b/src/Simplex/Messaging/Agent/Store/SQLite.hs
@@ -536,8 +536,10 @@ getPendingMsgData db connId msgId = do
           WHERE m.conn_id = ? AND m.internal_id = ?
         |]
         (connId, msgId)
-    pendingMsgData :: (AgentMessageType, MsgFlags, MsgBody, InternalTs) -> PendingMsgData
-    pendingMsgData (msgType, msgFlags, msgBody, internalTs) = PendingMsgData {msgId, msgType, msgFlags, msgBody, internalTs}
+    pendingMsgData :: (AgentMessageType, Maybe MsgFlags, MsgBody, InternalTs) -> PendingMsgData
+    pendingMsgData (msgType, msgFlags_, msgBody, internalTs) =
+      let msgFlags = fromMaybe SMP.noMsgFlags msgFlags_
+       in PendingMsgData {msgId, msgType, msgFlags, msgBody, internalTs}
 
 getPendingMsgs :: DB.Connection -> ConnId -> IO [InternalId]
 getPendingMsgs db connId =