From 88e96b019e9942ea23bf161ee25e3d5e5a9e4034 Mon Sep 17 00:00:00 2001
From: Pere Lev <pere@towards.vision>
Date: Thu, 8 Aug 2024 14:43:07 +0300
Subject: [PATCH] Fix bug in remote-delivery actor SQLite database handling

---
 src/Web/Actor/Deliver.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Web/Actor/Deliver.hs b/src/Web/Actor/Deliver.hs
index 26f0930..601e785 100644
--- a/src/Web/Actor/Deliver.hs
+++ b/src/Web/Actor/Deliver.hs
@@ -223,7 +223,7 @@ startDeliveryTheater headers micros manager logFunc dbRootDir = do
     -- We first add the sqlite3 extension as needed
     entries <- listDirectory dbRootDir
     for_ entries $ \ path ->
-        if "-wal-shm" `isSuffixOf` path || "-wal-wal" `isSuffixOf` path
+        if "-shm" `isSuffixOf` path || "-wal" `isSuffixOf` path
             then return ()
         else if takeExtension path == ".sqlite3"
             then return ()