forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix bug in remote-delivery actor SQLite database handling

Browse source
This commit is contained in:
Pere Lev 2024-08-08 14:43:07 +03:00
parent 83a36824a0
commit 88e96b019e
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Web/Actor/Deliver.hs
View file

@ -223,7 +223,7 @@ startDeliveryTheater headers micros manager logFunc dbRootDir = do
-- We first add the sqlite3 extension as needed -- We first add the sqlite3 extension as needed
entries <- listDirectory dbRootDir entries <- listDirectory dbRootDir
for_ entries $ \ path -> for_ entries $ \ path ->
if "-wal-shm" `isSuffixOf` path || "-wal-wal" `isSuffixOf` path if "-shm" `isSuffixOf` path || "-wal" `isSuffixOf` path
then return () then return ()
else if takeExtension path == ".sqlite3" else if takeExtension path == ".sqlite3"
then return () then return ()