From 761fbf7757b32d799f410dbe77d6ee9fe9ec8061 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Tue, 16 May 2023 15:05:18 +0400
Subject: [PATCH] core: remove temp files directory when deleting storage
 (#2446)

---
 src/Simplex/Chat/Archive.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Simplex/Chat/Archive.hs b/src/Simplex/Chat/Archive.hs
index 110c1dbda..fab53753c 100644
--- a/src/Simplex/Chat/Archive.hs
+++ b/src/Simplex/Chat/Archive.hs
@@ -84,6 +84,8 @@ deleteStorage = do
   removeFile chatDb
   removeFile agentDb
   mapM_ removePathForcibly filesPath
+  tmpPath <- readTVarIO =<< asks tempDirectory
+  mapM_ removePathForcibly tmpPath
 
 data StorageFiles = StorageFiles
   { chatDb :: FilePath,