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

type, query

Browse Source
This commit is contained in:
Evgeny @ SimpleX Chat
2026-08-31 07:17:28 +00:00
parent d37bf94dc6
commit 8a83f4fb62
14 changed files with 65 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/FileTransfer/Server/Store/Postgres.hs
+2 -2
View File
@@ -156,8 +156,8 @@ instance FileStoreClass PostgresFileStore where
fmap toResult $ withTransaction (dbStore st) $ \db ->
DB.query
db
"SELECT sender_id, file_path, file_size FROM files WHERE (expires_at < ?) OR (expires_at IS NULL AND created_at < ?) LIMIT ?"
(now, old - fileTimePrecision, limit)
"(SELECT sender_id, file_path, file_size FROM files WHERE expires_at < ? LIMIT ?) UNION ALL (SELECT sender_id, file_path, file_size FROM files WHERE expires_at IS NULL AND created_at < ? LIMIT ?)"
(now, limit, old - fileTimePrecision, limit)
where
toResult :: [(SenderId, Maybe FilePath, Int32)] -> [(SenderId, Maybe FilePath, Word32)]
toResult = map (\(sId, path, size) -> (sId, path, fromIntegral size))