core: add indexes for cleanup, initial delay (#2514)

src/Simplex/Chat/Migrations/M20230526_indexes.hs

@@ -0,0 +1,22 @@
+{-# LANGUAGE QuasiQuotes #-}
+
+module Simplex.Chat.Migrations.M20230526_indexes where
+
+import Database.SQLite.Simple (Query)
+import Database.SQLite.Simple.QQ (sql)
+
+m20230526_indexes :: Query
+m20230526_indexes =
+  [sql|
+CREATE INDEX idx_messages_created_at ON messages(created_at);
+
+CREATE INDEX idx_chat_item_reactions_created_by_msg_id ON chat_item_reactions(created_by_msg_id);
+|]
+
+down_m20230526_indexes :: Query
+down_m20230526_indexes =
+  [sql|
+DROP INDEX idx_chat_item_reactions_created_by_msg_id;
+
+DROP INDEX idx_messages_created_at;
+|]

src/Simplex/Chat/Migrations/chat_schema.sql

@@ -640,3 +640,7 @@ CREATE INDEX idx_chat_item_reactions_group ON chat_item_reactions(
   group_id,
   shared_msg_id
 );
+CREATE INDEX idx_messages_created_at ON messages(created_at);
+CREATE INDEX idx_chat_item_reactions_created_by_msg_id ON chat_item_reactions(
+  created_by_msg_id
+);