add folder deletion

src/Simplex/Chat/Store/Files.hs

@@ -72,6 +72,7 @@ module Simplex.Chat.Store.Files
     getSndFileTransfer,
     getSndFileTransfers,
     getContactFileInfo,
+    getNoteFolderFileInfo,
     getLocalCryptoFile,
     updateDirectCIFileStatus,
   )
@@ -895,6 +896,11 @@ getContactFileInfo db User {userId} Contact {contactId} =
   map toFileInfo
     <$> DB.query db (fileInfoQuery <> " WHERE i.user_id = ? AND i.contact_id = ?") (userId, contactId)
 
+getNoteFolderFileInfo :: DB.Connection -> User -> NoteFolder -> IO [CIFileInfo]
+getNoteFolderFileInfo db User {userId} NoteFolder {noteFolderId} =
+  map toFileInfo
+    <$> DB.query db (fileInfoQuery <> " WHERE i.user_id = ? AND i.note_folder_id = ?") (userId, noteFolderId)
+
 getLocalCryptoFile :: DB.Connection -> UserId -> Int64 -> Bool -> ExceptT StoreError IO CryptoFile
 getLocalCryptoFile db userId fileId sent =
   liftIO (getFileTransferRow_ db userId fileId) >>= \case

src/Simplex/Chat/Store/NoteFolders.hs

@@ -68,3 +68,19 @@ getNoteFolder db User {userId} noteFolderId =
   where
     toNoteFolder (displayName, localDisplayName, createdAt, updatedAt, chatTs, favorite, unread) =
       NoteFolder {noteFolderId, userId, displayName, localDisplayName, createdAt, updatedAt, chatTs, favorite, unread}
+
+deleteNoteFolderFiles :: DB.Connection -> UserId -> NoteFolder -> IO ()
+deleteNoteFolderFiles db userId NoteFolder {noteFolderId} = do
+  DB.execute
+    db
+    [sql|
+      DELETE FROM files
+      WHERE user_id = ?
+        AND chat_item_id IN (
+          SELECT chat_item_id FROM chat_items WHERE user_id = ? AND note_folder_id = ?
+        )
+      |] (userId, userId, noteFolderId)
+
+deleteNoteFolder :: DB.Connection -> User -> NoteFolder -> IO ()
+deleteNoteFolder db User {userId} NoteFolder {noteFolderId} =
+  DB.execute db [sql| DELETE FROM note_folders WHERE user_id = ? AND note_folder_id = ? |] (userId, noteFolderId)