core: remove temp files directory when deleting storage (#2446)

2023-05-16 15:05:18 +04:00
parent 4ee052e71e
commit 761fbf7757
1 changed files with 2 additions and 0 deletions
--- 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,