From 96866c7a5d8e99add25c2e52b800a6bfad219ea0 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Fri, 1 Jul 2022 10:37:26 +0100
Subject: [PATCH] core: handle all DB errors (#763)

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

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index f031b01d8e..09f804f4f4 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -2247,7 +2247,7 @@ withStore action = do
   liftEitherError ChatErrorStore $
     withTransaction st (runExceptT . action) `E.catch` handleInternal
   where
-    handleInternal :: DB.SQLError -> IO (Either StoreError a)
+    handleInternal :: E.SomeException -> IO (Either StoreError a)
     handleInternal = pure . Left . SEInternalError . show
 
 chatCommandP :: Parser ChatCommand